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PREFACE 

This manual is intended as a programming guide to the Integrated Graphics Software 
(IGS) system used with the S-C 4060. The IGS is a comprehensive system utilizing 
a library of subroutines to provide various graphic display functions. The manual 
described the capabilities and modes of operation of the IGS. It also lists each 
subroutine by name, outlines its function, specifies the calling sequence, and provides 
additional information useful in applications programming. 

Although the IGS system is FORTRAN-oriented, it may be called from assembly 
language, COBOL, PL/I, or any other symbolic language compatible with the 
subroutine linkage conventions. It is assumed that the programmer is familiar with 
the basic features of the FORTRAN language. 

All communication involving any or all of the system as described in this manual 
is to be directed to Stromberg Datagraphics Inc. 

Although the design and implementation of the IGS system was the result of a coopera¬ 
tive effort between Stromberg Datagraphics Inc. and the RAND Corp., the major portion 
of the detailed analysis and all of the programming effort was contributed by the 
RAND Corp. 
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1. INTRODUCTION 

The IGS software package allows an installation's host computer to accept data and 
graphic formatting instructions; perform necessary scaling, conversions, and 
translations; and create meta-language output and write it onto magnetic tape or 
some other output medium. The meta-language information is then read by an 
S-C 4060 Product Control Unit (PCU) for conversion to the sequence of hardware 
commands required to produce the graphic display. 
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2. DESCRIPTION OF IGS 


IGS LIBRARY SUBROUTINES 

The basic geometry library subroutines provided by the IGS system may be used to 
display joined line segments (LINESG), independent line segments (SEGMTG), plotted 
points (POINTG), circles and arcs (CIRARG). A subroutine to display multiple line 
segments (MLTPLG) is also provided, facilitating the generation of cross-hatching, 
shading, grids, multiple dots, etc. Other subroutines are available to draw linear 
or non-linear grids (GRIDG) and provide associated labels (LABELG) and titles (TITLEG). 
A supporting subroutine (SETUPG) may be called to compute appropriate arguments for 
GRIDG. Another subroutine (GRAPHG) may be used to produce an entire graph (with 
grid, labels, titles, and plotted data) from a single call. 

In addition to the geometric subroutines, discussed above, the IGS system library 
provides a subroutine (NUMBRG) for displaying numeric data in various formats. 

Two subroutines are provided for displaying strings of text. One of these (LEGNDG) 
begins the display at a specified x, y coordinate and the other (TEXTG) begins at the 
current position determined by the previous display. Both of these subroutines allow 
modifications to be made (via the SETSMG subroutine) in character size, line and 
character orientation, character spacing, character font and case, etc. Either the 
standard Gharactron characters or special "vector” characters may be displayed (see 
"Character Display, " below). Vector characters may be drawn with any of four line 
widths; and their size, orientation, and skew angle are not restricted by the IGS system. 
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MODE SETS 

A principal feature of the IGS system is the mode array, a 200-word communication 
region in the user’s program. The mode array, which is named by the user, contains 
all status information pertaining to the current task being performed by the system. 
Such information consists of scale factors; character size and orientation; line width, 
texture, and density; margin sets; hard copy size; grid type; label format and positions; 
conversion factors; and various flags and other required values. IGS subroutines 
use the mode array for the direct storage and retrieval of all information on which 
they operate to perform their functions. None of these values are retained within 
any of the subroutines (see Figure 1), and standard default values are stored in the 
mode array when the system is initialized. 

The address of the mode array is included in the argument string of the calling 
statement for each IGS subroutine. This enables the system to operate within time¬ 
sharing or other multiprogramming environments. 

A number of different mode arrays may be defined, rather than only one, and each 
may be called individually by the main program. This capability can be useful in 
the creation of separate output tapes for several different types of displays. 

By reducing the number of arguments that must be included in the subroutine calls, 
the use of the mode array greatly simplifies the programming of graphic displays. 
Consider a subroutine to display a line of characters. Only the x, y location of the 
first character, the number of characters to be displayed, and the address of the 
character string need be specified explicitly in the subroutine call. All other 
parameters, such as character size, character spacing, line spacing, etc., are 
obtained by the subroutine automatically from the mode array. Subroutine SETSMG 
is provided to allow changes to be made in a mode array, and such changes remain 
in effect until superseded by later changes or until the IGS system is reinitialized to 
the standard default values. 
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Figure 1. IGS Configuration 
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DEFAULT CONDITIONS 

When the IGS system is initialized by subroutine MODESG, or the mode array is 
reset by subroutine RSETMG, all mode array parameters are automatically set to 
default values that will provide standard graphic displays for each display mode and 
function. The standard default values for mode array parameters are listed in the 
description of subroutine GETSMG (in Section 4 of this manual). 

CHARACTER DISPLAY 

Characters displayed on the S-C 4060 may be either Charactron or vector characters. 
Charactron characters are created within the Charactron tube by passing a beam of 
electrons through a stencil-like etched matrix containing the set of characters shown 
in Appendix E. The characters selected for each display appear at designated 
locations on the CRT face of the Charactron tube where they are recorded on film and, 
optionally, on hard copy. Although the displayed characters are selected sequentially 
within the Charactron tube, all characters comprising a given display appear to be 
present simultaneously on the face of the CRT. 

Like Charactron characters, vector characters are displayed on the face of the CRT. 
However, each vector character is formed by causing an electron beam to trace a 
series of short line segments to ,T draw" the shape of the desired character. This 
process requires more time and storage space in the host computer than the 
Charactron method does, but allows virtually unlimited flexibility in character fonts. 
Vector characters may be drawn in any of four standard line widths, and the character 
fonts may be designed by the user in the form of font tables. The IGS system places 
no restriction on the number of fonts or the number of characters per font. 

Character strihgs may be either "plotted" or "typed." A plotted string of one or more 
characters may be displayed beginning at a specified x, y location, but a typed string 
must begin at the current x, y location established by the previous display. 


2-4 



9500360 


The display area occupied by a character is defined by its "envelope, " which includes 
both horizontal and vertical clearance. The "location" of each character is considered 
to be the centroid of its envelope. (See Figure 2). 

PLOTTING MODE 

As mentioned above, plotted character strings may be placed at any desired x, y 
coordinates on the CRT raster. The displayed location of the first (or only) 
character of the string is independent of the location of the previous display. The 
plotting mode is entered by a call to subroutine LEGNDG, and either Charactron or 
vector characters may be plotted. 

TYPING MODE 

In the typing mode, the displayed location of the first character of a string depends 
on the displayed location of the last character in the previous display (or on the 
current display location established by a call to subroutine LINESG). The distance 
between any two adjacent characters is normally equal to the width of one character. 
Either Charactron or vector characters may be typed using subroutine TEXTG. 

In both the plotting and the typing mode, mode set values may be specified to deter¬ 
mine various display parameters. Left, right, top, and bottom margins may be 
set; a page may be ejected when the text exceeds the limits of the defined display 
area; character size, spacing, case, font, and orientation; and line spacing and 
orientation may be specified via the mode array designated in the subroutine call. 
Figures 3, 4, and 5 illustrate some of these options. 

Because the location of a displayed character is at its center, some caution is 
necessary when vector characters are to be typed. A vector character cannot be 
displayed if a portion of the character would lie outside the addressable area of the 
raster. This restriction does not apply to Charactron characters. 
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Envelope width 
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Figure 2. The Character Envelope 
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The Stromberg Datagraphics Inc. character set is much larger than the character sets 
normally provided by standard keypunch machines. For this reason, special control 
characters have been provided in the IGS system to allow a display program to access 
any character of the S-C 4060 character matrix. A control character consists of a 
dollar-sign character followed by an identification character. All of the control 
characters and their functions are given in Appendix F. 

By using the standard FORTRAN set of 48 characters and specifying one of the three 
case subsets listed in Figure 6, it is possible to access any of the S-C 4060 Charactron 
characters. In the plotting mode, the case may be specified only by means of the 
SETSMG subroutine. In the typing mode, the case may be specified either by a call 
to SETSMG or by embedding an appropriate control character in the display character 
string ($L for lower case, $U for upper case, and $S for the special case). The 
upper case is the default for both the plotting mode and the typing mode. 

OBJECT SPACE AND SUBJECT SPACE 

The working area of the raster on the face of the Charactron CRT is rectangular, 
with 3072 addressable points in the vertical direction and 4096 in the horizontal. The 
horizontal or vertical distance between any two adjacent addressable raster points 
is termed a "raster unit, " the fundamental unit of distance on the raster. The "origin" 
of the raster (point (0, 0)) is at the lower left corner, and the point having the highest 
numerical address (point (4095, 3071)) is at the upper right corner. 

The IGS system allows locations cm the raster to be addressed directly in terms of 
raster unit coordinates, but for many applications it is more convenient to consider 
the raster in terms of normalized values. For example, the default condition assumes 
a normalized rectangular plotting area of 1.000 by 1.333. In this case, 1. 000 is 
equivalent to 3071 raster units and 1.333 is equivalent to 4095 raster units. 
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Figure 6. Character Case Equivalents 
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The values that determine the normalized plotting area may be any pair of positive 
numbers set by a call to subroutine SETSMG. For example, to establish a normalized 
plotting area of 3.0 by 4. 0 the following statements must be given: 

CALL SETSMG (Z, 19, 4.0) 

CALL SETSMG (Z, 20, 3. 0) 
where Z identifies the mode array. 

19 and 20 are the locations in the mode array in which the 
normalized units are to be stored. 

4. 0 and 3.0 are the values of the normalized units. 

The following calls will redefine the plotting area in terms of raster units: 

CALL SETSMG (Z, 19, 4095.) 

CALL SETSMG (Z, 20, 3071.) 

OBJECT SPACE 

For most graphic work it is frequently necessary to subdivide the plotting area into one 
or more sub-areas. A given job may require all graphic output to be confined to a 
specific sub-area on the raster. Such a sub-area is termed the "object space" and is 
defined in terms of the normalized values. 

Object space is established by a call to the subroutine OBJCTG. For example, if the 
normalized values are 1.000 (vertical) and 1.333 (horizontal), which is the default 
condition, and the object space is to consist of the upper left quarter of the raster, 
then the object space is defined by the following call: 

CALL OBJECTG (Z, 0., .5,. 6667,1.) 
where Z identifies the mode array. 

0. is the m inim um X-axis value. 

.5 is the minimum Y-axis value. 

. 6667 is the maximum X-axis value. 

1. is the maximum Y-axis value. 
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If the normalized values are established as 100. (horizontal) and 100. (vertical) and 
the object space is to consist of the upper left quarter of the raster, then the object 
space is defined as follows: 

CALL OBJCTG (Z, 0.0, 50.0, 50.0, 100.0) 

SUBJECT SPACE 

Graphs and other drawings are usually constructed in terms of units that are not 
related to raster units or normalized values. For example, a graph showing a 
relationship between distance and time might be expressed in terms of meters and 
seconds. The most convenient units for dealing with blocks of printed test are lines 
(vertical) and characters (horizontal). These and units such as volts, dollars, 
months, inches, etc, are termed "data units. " To facilitate the positioning of lines 
and characters relative to data units, the IGS system provides for a working area 
called "subject space." 

Physically, the subject space is bounded by the object space (see Figure 7). Regardless 
of what units or ranges of values are chosen to define the subject space, the bounds 
of the defined object space will not be exceeded. 

Example (see Figure 8): 

To set up the subject space for a graph whose range of values in the horizontal 
direction is in years, from 1950 to 1980, and in the vertical direction is in dollars, 
from $1000 to $10, 000, the statement 

CALL SUBJEG (Z, 1950., 1000., 1980., 10000.) 

must be made. Once the subject space has been defined, the range of permissible 
values for arguments in subsequent call statements is established also. In the present 
example, a call (to a plotting subroutine) that specified a horizontal coordinate value 
of 1949 would result in an error because the minimum horizontal value defining the 
subject space was 1950. 
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Example (see Figure 9): 

It is often necessary to transfer a sketch or schematic from a sheet of paper to 
microfilm. This can be done by scaling the drawing and transferring the measure¬ 
ments directly to the arguments of the IGS subroutine calls without the necessity of 
applying conversion factors. In such a case, it would be desirable for the object space 
to have the same aspect ratio as the sheet of paper from which the drawing is to be 
scaled. Assuming that the paper measures 8.5 by 11.0 inches and plotting area has 
the default normalized values, the object space could be established by the statement. 

CALL OBJCTG (Z, .455, 0., 1.333,1.) 

This would place the object space at the right-hand side of the normalized plotting 
area. The subject space could be established to correspond to the dimensions of the 
sheet of paper (8.5 by 11.0 in.) by the statement 

CALL SUBJEG (Z, 0., 0., 8.5,11.) 

The scaling and transferring of dimensions could then be done directly in inches. 
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3. IGS SUBROUTINES 

LIST OF SUBROUTINES 

The following list itemizes each IGS general graphic subroutine and briefly describes 
its function. 


Initialization, Termination, and Control Subroutines 


Name 

Function 

MODESG 

r 1 --———-— - ———— 

Initializes the IGS system. This must be the first 

IGS subroutine called by a graphics program. 

SUBJEG 

Sets up the subject space coordinate system. 

OBJCTG 

Sets up the normalized object space. 

SETSMG 

Sets a mode array value. 

GETSMG 

Retrieves a mode array value. 

RSETMG 

Resets all parameters of the mode array to their 
default values. 

TABSG 

Sets typing tab positions 

PAGEG 

Controls frame advance and form flash. 

EXITG 

Terminates graphic output. This must be the last 

IGS subroutine called by a graphics program. 

§ 

Initializes a vector character font. 
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Graphic Output Subroutines 


Name 

Function 

CIRARG 

Draws a circle or arc. 

LEGNDG 

Displays (plots) characters. 

LINESG 

Draws joined line segments. 

MLTPLG 

Draws multiple line segments 

NUMBRG 

Displays (plots) numeric data 

POINTG 

Plots symbols. 

SEGMTG 

Draws line segments 

TEXTG 

Types characters 


Graphing Subroutines 


Name 

Function 

GRIDG 

Draws a grid. 

LABELG 

Labels a grid. 

TITLEG 

Titles a grid. 

SETUPG 

Computes optimum grid parameters. 

GRAPHG 

Draws a complete graph. 


Conversion Subroutines 


Name 

Function 

CONVTG 

Converts a character string to numeric form. 

FMTSG 

Converts numeric data to a character string. 
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IGS SUBROUTINE CONVENTIONS 

The following conventions have been adopted for the IGS system: 

1. All general graphic subroutine names end with a "G." 

2. All system subroutines end with "ZZ." These sub¬ 
routines willnot be of general interest to the typical 
user. See Ref. 6. 

3. All functions end with a "Z." See Ref. 6. 

4. The first argument of each call to any graphic sub¬ 
routine must identify the mode array that is to be 
used by that subroutine. This array must be 
properly defined in the user's program. It is re¬ 
commended that this array be given a single char¬ 
acter name for programmer convenience. 

5. All variables in a mode array are real. 

6. Unless otherwise specified via a call to SETSMG, 
all coordinate values in calls to graphic subroutines 
are real. 

7. No variable-length calls are used. 

8. Wherever possible, the subroutines are coded in ASA 
standard FORTRAN. 

9. The IGS system does not necessitate modification of the 
host computer system. This does not preclude modifica¬ 
tion of the host system to suit special requirements of a 
particular installation. 

The general format of the IGS subroutine descriptions is as follows: 

1. Purpose. A brief statement of the purpose of the sub¬ 
routine is given. 

2. Call. The calling sequence needed to call the subroutine 
is described in detail. FORTRAN notation is used to 
indicate integer or real arguments. Arguments beginning with 
A-H or O-Z are real; those beginning with I-N are integer. 
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3. Special. If the user may make any special calls to the 
subroutine, these are given. 

4. Mods . Any modifications that can be made to the func¬ 
tioning of the subroutine (via calls to SETSMG) are 
given. 

5. Uses. Any other subroutines called by the subroutine 
are listed. 

6. Notes. Information not included under 5. above, such 
as the language the subroutine is coded in, is given 
under "Notes." 
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4. IGS SUBROUTINE DESCRIPTIONS 

INITIALIZATION, TERMINATION, AND CONTROL SUBROUTINES 

The FORTRAN "program" outlined below illustrates the use of the IGS housekeeping 
subroutines. Refer to the individual subroutine descriptions for information regard¬ 
ing the arguments in the calling sequences. 

Before attempting to create any graphic output, the user's program must dimension 
the appropriate mode array and initialize the IGS system through a call to MODESG. 
Subroutine MODESG sets all the default values in the mode array and opens the output 
file. The referenced mode array in the user's program must be 200 words long. 

DIMENSION Z (200) 

CALL MODESG (Z,0) 

The user's program should then set up its coordinate system. A call to SUBJEG will 
change the subject space and a call to OBJCTG will change the object space. Both of 
these calls are optional and need not be used if the default coordinate system is ade¬ 
quate for the display. 

CALL SUBJEG (Z,XM1N, YM3N, XMAX, YMAX) 

CALL OBJCTG (Z,XMIN, YMIN, XMAX, YMAX) 

The graphics system may then be tailored to suit the particular needs of the user's 
program, by mode set calls. These calls are not necessary if the default mode 
array values are acceptable. 
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CALL SETSMG (Z,NO, VALUE) 

The user’s program may then create any desired displays by means of calls to appro¬ 
priate graphic subroutines. When a display is complete, subroutine PAGEG must be 
called to record the display and advance the film. 

CALL PAGEG (Z,0,1,1) 

After PAGEG returns control to the user's program, the next display may be created. 
Mode array parameters may be changed via calls to SETSMG, or RSETMG may be 
called to reset the mode array to the standard default values. 

CALL RSETMG (Z) 

If typewriter simulation is to be done, tabs may be set by a call to TABSG. 

CALL TABSG (Z, NTABS, TABS) 

When all graphic outputs has been completed and recorded, EXITG must be called to 
terminate graphic output. 

CALL EXITG (Z) 

The user's program may then terminate its execution in the normal manner if there 
is nothing left to be done. 

CALL EXIT 
END 
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£************************* ***SUBR0(jT INE MODESG****************** 1 ************* 
INITIALIZE THE SYSTEM. (MODESG) 

PURPOSE THIS ROUTINE IS USED TO INITIALIZE THE GRAPHICS SYSTEM. IT 
OPENS ANY FILES NEEDED* SETS ALL DEFAULT VALUES IN THE MODE 
SET ARRAY, AND MAY BE MODIFIED TO DO ANY ACCOUNTING NEEDED. 

THE USER MUST CALL MODESG TO INITIALIZE THE SYSTEM BEFORE 
CALLING ANY OTHER GRAPHIC SUBROUTINES. 

CALL CALL MODESG!Z,ITAPE) 

Z MUST BE AN ARRAY IN THE USER’S PROGRAM, 200 WORDS 
LONG. ALL MODE SETS AND SYSTEM COMMUNICATION 
POINTERS ARE STORED IN THIS ARRAY. THE USER MUST 
BE CAREFUL NOT TO DESTROY IT. 

ITAPE SPECIFIES THE FORTRAN TAPE UNIT TO WRITE THE 
S-C 4060 OUTPUT ONTO. IF ITAPE=0, THE DEFAULT 
TAPE UNIT WILL BE SELECTED. 

SPECIAL NONE 

MODS NONE 

USES SUBROUTINES RSETMG,PACKZZ,ERRZZ,METAZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THIS SUBROUTINE MAY BE MODIFIED BY EACH INSTALLATION TO SUIT 
ITS PARTICULAR NEEDS. 
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C*******%******«*************subR0UTINE SUBJEG******************************** 
SET UP SUBJECT SPACE. ISUBJEG) 

PURPOSE THIS ROUTINE IS USED TO SET UP THE LIMITS OF THE USER'S 

COORDINATE SYSTEM (SUBJECT SPACE). IT THEN CALCULATES THE 
SCALE FACTORS NEEDED. 

CALL CALL SUBJEGIZ•XMIN,YMIN,XMAX,YMAX) 

Z IS THE MODE SET ARRAY. 

XMIN IS THE MINIMUM X-COORDINATE OF THE USER'S DATA. 

YMIN IS THE MINIMUM Y-COORDINATE OF THE USER'S DATA. 

XMAX IS THE MAXIMUM X-COOROINATE OF THE USER'S DATA. 

YMAX IS THE MAXIMUM Y-COORDINATE OF THE USER'S DATA. 

SPECIAL NONE 

MODS NONE 

USES SUBROUTINES ERRZZ,XMODZ,YMODZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

XMIN, YMIN, XMAX, AND YMAX ARE THE BOUNOS OF THE USER'S 
DATA. XMIN AND YMIN NEED NOT NECESSARILY BE LESS THAN XMAX 
OR YMAX. HOWEVER, XMIN MUST NOT EQUAL XMAX OR YMIN EQUAL 
YMAX. 

SUBJEG RECOMPUTES THE PAGE MARGINS AND TAB SETS SO THAT THEY 
STAY IN THE SAME POSITIONS RELATIVE TO THE NEW SUBJECT 
SPACE. 
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C****************************SUBR0UTINE QBJC1G******************************** 
SET UP OBJECT SPACE. (OBJCTG) 

PURPOSE THIS ROUTINE IS USED TO SET UP THE SIZE OF THE DISPLAY SCOPE 
TO USE (OBJECT SPACE). IT THEN CALCULATES THE SCALE FACTORS 
NEEDEO. 

CALL CALL OBJCTG(Z,XMIN,YMIN,XMAX,YMAX) 

Z IS THE MODE SET ARRAY. 

XMIN IS THE MINIMUM X-COORDINATE OF THE SCREEN IN 
NORMALIZED OBJECT SPACE. 

YMIN IS THE MINIMUM Y-COORDINATE OF THE SCREEN IN 
NORMALIZED OBJECT SPACE. 

XMAX IS THE MAXIMUM X-COORDINATE OF THE SCREEN IN 
NORMALIZED OBJECT SPACE. 

YMAX IS THE MAXIMUM Y-COORDINATE OF THE SCREEN IN 
NORMALIZED OBJECT SPACE. 

SPECIAL TWO FUNCTIONS ARE PROVIDED TO CONVERT SUBJECT SPACE 
COORDINATES INTO NORMALIZED OBJECT SPACE. 

1. TO CONVERT X-AXIS SUBJECT SPACE TO NORMALIZED 
OBJECT SPACE, USE THE FOLLOWING FUNCTION: 

X NORMALIZED OBJECT SPACE * XNORMZ(Z,X> 

2. TO CONVERT Y-AXIS SUBJECT SPACE TO NORMALIZED 
OBJECT SPACE, USE THE FOLLOWING FUNCTION. 

Y NORMALIZED OBJECT SPACE = YNORMZIZ.Y) 

MODS NORMALIZED OBJECT SPACE IS BASED UPON A MAXIMUM VALUE OF 1.0 

IN THE Y-AXIS AND 1.333 IN THE X-AXIS. IF THE USER WANTS TO 
CHANGE THESE VALUES, HE MAY 00 SO BY MAKING A MODE SET CALL. 

HE MUST THEN BE CAREFUL TO USE HIS NEW NORMALIZED OBJECT 
SPACE WHEREVER NORMALIZED OBJECT SPACE IS REQUIRED. 

THE MODE SET CALLS ARE AS FOLLOWS: 

1. TO CHANGE THE MAXIMUM X-AXIS NORMALIZED OBJECT 
SPACE, GIVE THE FOLLOWING CALL: 

CALL SETSMG(Z»19»XMAX) 

XMAX IS THE NEW NORMALIZED X-AXIS OBJECT 
SPACE. 

XMAX * 1.333 IS THE DEFAULT VALUE. 

2. TO CHANGE THE MAXIMUM Y-AXIS NORMALIZED OBJECT 
SPACE, GIVE THE FOLLOWING CALL: 

CALL SETSMGlZ,20,YMAX) 

YMAX IS THE NEW NORMALIZED Y-AXIS OBJECT 
SPACE. 

YMAX = i.O IS THE DEFAULT VALUE. 

USES SUBROUTINES METAZZ,ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

XMAX AND YMAX MUST BE GREATER THAN XMIN AND YMIN 
RESPECTIVELY. 
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****************************subrout jne SETSMG**'****************************** 
SET MODE VALUES. (SETSMG) 

PURPOSE THIS ROUTINE IS USED TO SET A SINGLE VALUE IN THE MODE SET 
ARRAY. MODES THAT ARE SET STAY IN EFFECT UNTIL THEY ARE 
SPECIFICALLY RESET, OR UNTIL THE SYSTEM IS RE-INITIALIZED. 

ALL MODE SETS HAVE A DEFAULT VALUE ASSOCIATED WITH THEM. 

THIS DEFAULT VALUE IS SET BY THE INITIALIZATION CALL TO 
MOOESG AND BY CALLS TO RSETMG. 

CALL CALL SETSMG<Z,NO,VALUE) 

Z IS THE MODE SET ARRAY. 

NO IS A NUMBER IDENTIFYING THE PARTICULAR MODE SET 
PARAMETER. 

VALUE IS THE MODE SET VALUE. 


USES SUBROUTINE ERRZZ 

NO FUNCTION DESCRIPTION 


DEFAULT 
VALUE SET BY 


14 SCALE FLAG TYPE OF SCALING TO DO. 1. SYSTEM 

O.-REAL SUBJECT SPACE UNITS. 

1. —REAL ABSOLUTE RASTER UNITS. 

2. -INTEGER ABSOLUTE RASTERS. 

3. -REAL NORMALIZED OBJECT 

SPACE. 

19 MAX X-NORM. SCOPE SIZE IN NORMALIZED OBJECT 1.333 SETSMG 

SPACE. 

20 MAX Y-NORM. SCOPE SIZE IN NORMALIZED OBJECT i. SETSMG 

SPACE. 

23 X—LINEAR FLAG FLAG FOR LINEAR SCALING IN X-AXIS. 0. SETSMG 

O.—LINEAR 

i.-NONLINEAR 

24 Y—LINEAR FLAG FLAG FOR LINEAR SCALING IN Y-AXIS. 0. SETSMG 

0.-LINEAR 
1.-NONLINEAR 

30 LINE WIDTH NO. TIMES NORMAL WIDTH. 1. SETSMG 

.5 2 RASTERS 

1.0 4 RASTERS 

2.0 8 RASTERS 

4.0 16 RASTERS 

31 LINE TEXTURE SIZE OF DASHED LINE. 0. SETSMG 

O.-SOLID 

1. -32 RASTER UNITS. 

2. -64 RASTER UNITS. 

3. -128 RASTER UNITS. 

4. -256 RASTER UNITS. 

42 CURRENT WIDTH CHARACTER WIDTH IN SUBJECT SPACE. 31. SETSMG 

43 CURRENT HEIGHT CHARACTER HEIGHT IN SUBJECT SPACE. 51. SETSMG 

44 PAGE EJECTION EJECT TO A NEW PAGE IF LINES RUN 0. SETSMG 

OFF THE BOTTOM OR TOP MARGINS. 

O.-NO 
l.—YES 

45 CHARACTER SIZE NO. TIMES NORMAL SIZE FOR TYPING. 1. SETSMG 

.75 23X38 RASTERS 

1.0 31X51 RASTERS 

1.25 39X64 RASTERS 

1.5 47X77 RASTERS 

4-6 
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46 TYPING ORIEN. TYPING ORIENTATION IN DEGREES. 0. SETSMG 

BOTH CHARACTER AND LINE ORIENTATION 
ARE SET. 0. IS A VERTICAL CHARACTER 
AND A HORIZONTAL LINE TO THE RIGHT. 

COUNTER CLOCKWISE IS POSITIVE. 

0. AND 90. ARE ALLOWED FOR 
CHARACTRON CHARACTERS. 

47 CHARACTER SPACING NO. TIMES TO SPACE CHARACTERS. 1.0 SETSMG 

48 VACANT 

49 LINE SPACING NO. TIMES CURRENT CHARACTER HEIGHT -1. SETSMG 

TO SPACE LINE UPON EJECTION. 

+ VALUE* SPACE LINE UP. 

- VALUE* SPACE LINE DOWN. 

50 LINE ORIENTATION ANGLE IN DEGREES AT WHICH A LINE OF 0. SETSMG 

CHARACTERS IS TO BE DISPLAYED. 0. 

IS HORIZONTAL* TO THE RIGHT. 

COUNTER CLOCKWISE ANGLES ARE 
POSITIVE. 

51 CHARACTER FONT CHARACTER FONT TO USE FOR TYPING. 0. SETSMG 

0.-CHARACTRON 

1.-STANDARD VECTOR 

52 CHARACTER CASE CHARACTER CASE FOR TYPING. 0. SETSMG 

0.-UPPER CASE 

1. -LOWER CASE 

2. -SPECIAL CASE 

53 PLOT CHAR SIZE NO. TIMES NORMAL SIZE FOR PLOTTING. 1. SETSMG 

.75 23X38 RASTER UNITS. 

1.0 31X51 RASTER UNITS. 

1.25 39X64 RASTER UNITS. 

1.5 47X77 RASTER UNITS. 

54 PLOT CHAR ORIEN. PLOT CHARACTER ORIENTATION IN 0. SETSMG 

DEGREES. 0. IS UPRIGHT. COUNTER 
CLOCKWISE IS POSITIVE. 

0. - UPRIGHT 
90. - HORIZONTAL 

55 PLOT CHAR. CASE CHARACTER CASE FOR PLOTTING. 0. SETSMG 

0.-UPPER CASE 

1. -LOWER CASE 

2. -SPECIAL CASE 

60 LEFT MARGIN MARGIN IN SUBJECT SPACE. 0. SETSMG 

61 RIGHT MARGIN MARGIN IN SUBJECT SPACE. 4095. SETSMG 

62 BOTTOM MARGIN MARGIN IN SUBJECT SPACE. 0. SETSMG 

63 TOP MARGIN MARGIN IN SUBJECT SPACE. 3071. SETSMG 

77 FORMAT WIDTH FORMAT WIDTH-USED BY NUMBRG. - SETSMG 

78 FORMAT DECIMALS FORMAT DECIMAL-USED BY NUMBRG. - SETSMG 

79 FORMAT FORMAT-USED BY NUMBRG - SETSMG 

1. - I FORMAT 

2. - F FORMAT 

3. - E FORMAT 

4. - A FORMAT 

80 PL/I FLAG PL/I CALLS. 0. SETSMG 

O.-NO 

i.-YES 

81 CHARACTER ADDRESS N»TH CHARACTER OF A STRING TO BEGIN 1. SETSMG 

ADORESSING WITH. 

82 TYPE OF ARC METHOD TO USE IN DRAWING AN ARC. 0. SETSMG 

0.-LINES 
L.-POINTS 

83 ROUNDNESS OF ARC DEGREES BETWEEN TWO ADJACENT POINTS 5. SETSMG 
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c 



OF AN ARC. 



c 

84 

PLOT CHARACTER 

CHARACTER TO USE FOR PLOTTING. 

POINT 

SET SMG 

c 

85 

SCIENTIFIC FMT 

SPECIFIES SCIENTIFIC OR E FORMAT. 

0. 

SETSMG 

c 



O.-E FORMAT 



c 



U-SCIENTIFIC NOTATION 



c 

88 

VOID MARK 

PUT VOID MARK ON BAD OUTPUT. 

0. 

SETSMG 

c 



0. - YES 



c 



1. - NO 



c 

90 

HARDCOPY MODE 

TYPE OF HARDCOPY TO PROOUCE. 

1. 

SETSMG 

c 



O.-NONE 



c 



(OBJECT SPACE IS RESET TO 



c 



XMIN-0. » XMAX=1.33333, 



c 



YMIN = 0. , YMAX= 1. ) 



c 



i.-il X 14 



c 



(OBJECT SPACE IS RESET TO 



c 



XMIN = 0.» XMAX=1.33333, 



c 



YMIN=0•, YMAX=i.) 



c 



2.-8 1/2 X 11 



c 



(OBJECT SPACE IS RESET TO 



c 



XMI N=Q. , XMAX =.72967, 



c 



YMIN=0. , YMAX=1. ) 



c 



3.-STRIP CHART 



c 



(OBJECT SPACE IS RESET TO 



c 



XMIN = 0. , XMAX= l . , 



c 



YMIN=0., YMAX=1.J 



c 

91 

FILM ADVANCE 

DISTANCE TO ADVANCE FILM IN PERFS. 

6. 

SYSTEM 

c 

92 

FORMS FLASH 

AUTOMATIC FORMS FLASH. 

0. 

SETSMG 

c 



O.-OFF 



c 



l.-CN 



c 

93 

FRAME MARKS 

AUTOMATIC FRAME MARKS. 

3. 

SETSMG 

c 



O.-NONE 



c 



1.-CORNER MARKS 



c 



2.-ID 



c 



3.-CORNER MARKS AND ID 



c 

94 

LINE DENSITY 

DENSITY OF LINES. 

0. 

SETSMG 

c 



0.-NORMAL 



c 



l.-LIGHT 



c 

95 

FAST PLOT 

SPEED TO PLOT CHARACTERS. 

0. 

SETSMG 

c 



0.-NORMAL 



c 



i.-FAST 



c 

100 

AXES FLAG 

EMPHASIS OF MAJOR AXES. 

0. 

SETSMG 

c 



0.-EMPHASIZE BOTH 



c 



1.-EMPHASIZE X=0 ONLY 



c 



2.-EMPHASIZE Y=0 ONLY 



c 



3.-NO EMPHASIS 



c 

102 

X TICK MARKS 

LENGTH OF X-AXIS TICK MARK IN 

0. 

SETSMG 

c 



NORMALIZED OBJECT SPACE. 



c 

103 

Y TICK MARKS 

LENGTH OF Y-AXIS TICK MARK IN 

0. 

SETSMG 

c 



NORMALIZED OBJECT SPACE. 



c 

104 

X-AXIS LABEL 

NO. TIMES CHARACTER HEIGHT TO 

-1.5 

SETSMG 

c 



POSITION X-AXIS LABEL. 



c 



+ LABEL ABOVE GRID 



c 



- LABEL BELOW GRID 



c 



0. LABEL AT Y=0 



c 

105 

Y-AXIS LABEL 

NO. TIMES CHARACTER WIDTH TO 

-1.5 

SETSMG 

c 



POSITION Y-AXIS LABEL. 



c 



+ LABEL RIGHT SIDE OF GRID 



c 



- LABEL LEFT SIDE OF GRID 



c 



0. LABEL AT X=0 
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106 

LEFT MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0. 15 

SETSMG 

107 

RIGHT MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0. 15 

SETSMG 

108 

BOTTOM MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 

SETSMG 

109 

TOP MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 

SETSMG 

110 

SQUARE GRID 

FORCE VALUES FOR A SQUARE GRID TO 

BE CALCULATED. 

C.-NOT FORCED TO BE SQUARE. 

1 .-MUST BE SQUARE. 

0. 

SETSMG 

111 

X-AXIS DENSITY 

MIN DISTANCE BETWEEN X-AXIS GRID 
LINES IN NORMALIZED OBJECT 
SPACE. 

. 01009SETSMG 

112 

Y-AXIS DENSITY 

MIN DISTANCE BETWEEN Y-AXIS GRID 
LINES IN NORMALIZED OBJECT 
SPACE. 

.01660SETSMG 

113 

MIN X-TITLE 

NORMALIZED OBJECT SPACE UNAVAILABLE 
FOR TITLES. 


LABELG 

114 

MIN Y-TITLE 

NORMALIZED OBJECT SPACE UNAVAILABLE 
FOR TITLES. 


LABELG 

115 

MAX X-TITLE 

NORMALIZED OBJECT SPACE UNAVAILABLE 
FOR TITLES. 

— 

LABELG 

116 

MAX Y-TITLE 

NORMALIZED OBJECT SPACE UNAVAILABLE 
FOR TITLES. 


LABELG 

131 SKEW ANGLE 

SPECIAL NONE 

MOOS NONE 

USES SUBROUTINES 

VECTOR CHARACTER SKEW ANGLE IN 
DEGREES. 

METAZZtERRZZfSUBJEG»08JCTG 

0. 

SETSMG 


NOTES 


THIS SUBROUTINE 


IS WRITTEN IN FORTRAN IV. 
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£***********************#**«*SUBROUTINE GETSMG******************************* 1 
RETRIEVE MODE VALUES. (GETSMG) 

PURPOSE THIS ROUTINE IS USED TO RETRIEVE A SINGLE VALUE FROM THE 
MOOE SET ARRAY. 

CALL CALL GETSMG(Z,NO,VALUE) 

Z IS THE MODE SET ARRAY. 

NO IS A NUMBER IDENTIFYING THE PARTICULAR MODE SET 
PARAMETER. 

VALUE WILL CONTAIN THE MODE SET VALUE ON RETURN. 

DEFAULT 

NO FUNCTION DESCRIPTION VALUE SET BY 


1 INITIALIZATION 

2 MIN—X 

3 MIN—Y 

4 MAX-X 

5 MAX-Y 

6 MIN-X 

7 MIN-Y 

8 MAX-X 

9 MAX-Y 

10 X-OFFSET 

11 Y-OFFSET 

12 X-SCALE 

13 Y-SCALE 

14 SCALE FLAG 


17 LAST X 


18 LAST Y 


19 MAX X-NORM. 

20 MAX Y-NORM. 

21 MAX-X 

22 MAX-Y 

23 X—LINEAR FLAG 


24 Y-LINEAR FLAG 


TELLS WHETHER ARRAY IS INIT 
SUBJECT SPACE. 

SUBJECT SPACE. 

SUBJECT SPACE. 

SUBJECT SPACE. 

NORMALIZED OBJECT SPACE. 
NORMALIZED OBJECT SPACE. 
NORMALIZED OBJECT SPACE. 
NORMALIZED OBJECT SPACE. 
SCALING FACTORS COMPUTED BY 


INITIALIZED. 


SYSTEM. 


0 . 

0 . 

4095. 

3071. 

0. 

0. 

1.333 

1. 

0. 

0. 

1. 

1. 

1 . 


SCALING FACTORS COMPUTED BY SYSTEM. 0. 

SCALING FACTORS COMPUTED BY SYSTEM. 1. 

SCALING FACTORS COMPUTED BY SYSTEM. 1. 

TYPE OF SCALING TO DO. 1. 

O.-REAL SUBJECT SPACE UNITS. 

1. -REAL ABSOLUTE RASTER UNITS. 

2. -INTEGER ABSOLUTE RASTERS. 

3. -REAL NORMALIZED OBJECT 

SPACE. 

CURRENT POINT POSITION IN SUBJECT 
SPACE. (NOTE-THIS VALUE WILL CONTAIN 
THE X LOCATION OF THE FIRST 
CHARACTER WHEN CHARACTRON CHARACTERS 
ARE DISPLAYED. IT WILL CONTAIN THE 
LOCATION OF THE * NEXT * CHARACTER 
WHEN VECTOR CHARACTERS ARE DISPLAYED.) 
CURRENT POINT POSITION IN SUBJECT 
SPACE. (NOTE-THIS VALUE WILL CONTAIN 
THE Y LOCATION OF THE FIRST 
CHARACTER WHEN CHARACTRON CHARACTERS 
ARE DISPLAYED. IT WILL CONTAIN THE 
LOCATION OF THE 'NEXT* CHARACTER 
WHEN VECTOR CHARACTERS ARE DISPLAYED.) 
SCOPE SIZE IN NORMALIZED OBJECT 1.333 

SPACE. 

SCOPE SIZE IN NORMALIZED OBJECT 1. 

SPACE. 

SCOPE SIZE-IN ABSOLUTE RASTER UNITS 4095. 
SCOPE SIZE-IN ABSOLUTE RASTER UNITS 3071. 
FLAG FOR LINEAR SCALING IN X-AXIS. 0. 
0.-LINEAR 
l.—NCNLINEAR 

FLAG FOR LINEAR SCALING IN Y-AXIS. 0. 
0.-LINEAR 


SYSTEM 

SUBJEG 

SUBJEG 

SUBJEG 

SUBJEG 

OBJCTG 

OBJCTG 

OBJCTG 

OBJCTG 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 


SYSTEM 


SYSTEM 


SETSMG 

SETSMG 

SETSMG 

SYSTEM 

SETSMG 


SETSMG 
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l.-NGNLI NEAR 

25 LOG(MIN-X) LOG OF SUBJECT SPACE* - SYSTEM 

26 LOGCMIN-Y} LOG OF SUBJECT SPACE- - SYSTEM 

27 LOG(MAX—X) LOG OF SUBJECT SPACE. - SYSTEM 

28 LOGCMAX-Y) LOG OF SUBJECT SPACE. - SYSTEM 

30 LINE WIDTH NO. TIMES NORMAL WIDTH. 1. SETSMG 

.5 2 RASTERS 

1.0 4 RASTERS 

2.0 8 RASTERS 

4.0 16 RASTERS 

31 LINE TEXTURE SIZE OF DASHED LINE. 0. SETSMG 

O.-SOLID 

1. -32 RASTER UNITS. 

2. -64 RASTER UNITS. 

3. -128 RASTER UNITS. 

4. -256 RASTER UNITS. 

40 NORMAL WIDTH NORMAL CHARACTER WIDTH IN .01009SYSTEM 

NORMALIZED OBJECT SPACE. 

41 NORMAL HEIGHT NORMAL CHARACTER HEIGHT IN .0166 SYSTEM 

NORMALIZED OBJECT SPACE. 

42 CURRENT WIDTH CHARACTER WIOTH IN SUBJECT SPACE. 31. SETSMG 

43 CURRENT HEIGHT CHARACTER HEIGHT IN SUBJECT SPACE. 51. SETSMG 

44 PAGE EJECTION EJECT TO A NEW PAGE IF LINES RUN 0. SETSMG 

OFF THE BOTTOM OR TOP MARGINS. 

O.-NO 
1.—YES 

45 CHARACTER SIZE NO. TIMES NORMAL SIZE FOR TYPING. 1. SETSMG 

.75 23X38 RASTERS 

1.0 31X51 RASTERS 

1.25 39X64 RASTERS 

1.5 47X77 RASTERS 

46 TYPING ORIEN. TYPING ORIENTATION IN DEGREES. 0. SETSMG 

BOTH CHARACTER AND LINE ORIENTATION 
ARE SET. 0. IS A VERTICAL CHARACTER 
AND A HORIZONTAL LINE TO THE RIGHT. 

COUNTER CLOCKWISE IS POSITIVE. 

0. AND 90. ARE ALLOWED FOR 
CHARACTRON CHARACTERS. 

47 CHARACTER SPACING NO. TIMES TO SPACE CHARACTERS. 1.0 SETSMG 

48 VACANT 

49 LINE SPACING NO. TIMES CURRENT CHARACTER HEIGHT -1. SETSMG 

TO SPACE LINE UPON EJECTION. 

♦ VALUE, SPACE LINE UP. 

- VALUE, SPACE LINE DOWN. 

50 LINE ORIENTATION ANGLE IN DEGREES AT WHICH A LINE OF 0. SETSMG 

CHARACTERS IS TO BE DISPLAYED. 0. 

IS HORIZONTAL, TO THE RIGHT. 

COUNTER CLOCKWISE ANGLES ARE 
POSITIVE. 

51 CHARACTER FONT CHARACTER FONT TO USE FOR TYPING. 0. SETSMG 

0.-CHARACTRON 
l.-STANDARD VECTOR 

52 CHARACTER CASE CHARACTER CASE FOR TYPING. 0. SETSMG 

0.-UPPER CASE 

1. -LOWER CASE 

2. -SPECIAL CASE 

53 PLOT CHAR SIZE NO. TIMES NORMAL SIZE FOR PLOTTING. 1. SETSMG 

.75 23X38 RASTER UNITS. 

1.0 31X51 RASTER UNITS. 
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54 PLOT CHAR ORIEN. 


55 PLOT CHAR. CASE 


60 LEFT MARGIN 

61 RIGHT MARGIN 

62 BOTTOM MARGIN 

63 TOP MARGIN 

64 CHARACTERS/LINE 

65 LINES/PAGE 

66 NO. TABS 

67 TAB l 

68 TAB 2 


• • • 

76 TAB 10 

77 FORMAT WIDTH 

78 FORMAT DECIMALS 

79 FORMAT 


80 PL/I FLAG 


81 CHARACTER ADDRESS 

82 TYPE OF ARC 


83 ROUNDNESS OF ARC 

84 PLOT CHARACTER 

85 SCIENTIFIC FMT 


88 VOID MARK 


89 TAPE UNIT 

90 HARDCOPY MODE 


1.25 39X64 RASTER UNITS. 

1.5 47X77 RASTER UNITS. 

PLOT CHARACTER ORIENTATION IN 0. 

DEGREES. 0. IS UPRIGHT. COUNTER 
CLOCKWISE IS POSITIVE. 

0. - UPRIGHT 
90. - HORIZONTAL 

CHARACTER CASE FOR PLOTTING. 0. 

0.-UPPER CASE 

1. -LOWER CASE 

2. -SPECIAL CASE 

MARGIN IN SUBJECT SPACE. 0. 

MARGIN IN SUBJECT SPACE. 4095. 

MARGIN IN SUBJECT SPACE. 0. 

MARGIN IN SUBJECT SPACE. 3071. 

NO. CHARACTERS PER LINE 132. 

NO. LINES PER PAGE. 60. 

NO. TABS IN EFFECT 0. 

TAB SET IN X-CCORD. SUBJECT SPACE. 0. 

TAB SET IN X-CCORD. SUBJECT SPACE. 0. 

TAB SET IN X-CCORO. SUBJECT SPACE. 

TAB SET IN X-COORD. SUBJECT SPACE. 

TAB SET IN X-CCORD. SUBJECT SPACE. 0. 


FORMAT WIDTH-USED 8Y NUMBRG. 

FORMAT DECIMAL-USED BY NUMBRG. 
FORMAT-USED BY NUMBRG 

1. - I FORMAT 

2. - F FORMAT 

3. - E FORMAT 

4. - A FORMAT 

PL/I CALLS. 0. 

O.-NO 
l.—YES 

N'TH CHARACTER OF A STRING TO BEGIN 1. 
ADDRESSING WITH. 

METHOD TO USE IN DRAWING AN ARC. 0. 

0.-LINES 
l.-POINTS 

DEGREES BETWEEN TWO ADJACENT POINTS 5. 


OF AN ARC. 

CHARACTER TO USE FOR PLOTTING. POINT 

SPECIFIES SCIENTIFIC OR E FORMAT. 0. 

O.-E FORMAT 

1.—SCIENTIFIC NOTATION 
PUT VOID MARK ON BAD OUTPUT. 0. 

0. - YES 
1. - NO 

OUTPUT TAPE NUMBER 10. 

TYPE OF HARDCOPY TO PRODUCE. 1. 

O.-NONE 


(OBJECT SPACE IS RESET TO 
XMIN=0.» XMAX»l.33333, 
YMIN*0., YMAX=l.) 

1. -l 1 X 14 

(OBJECT SPACE IS RESET TO 
XMIN=0«, XMAX*1.33333, 

YMIN=0., YMAX=i.) 

2. -8 1/2 X 11 

(OBJECT SPACE IS RESET TO 


SETSMG 


SETSMG 


SETSMG 

SETSMG 

SETSMG 

SETSMG 

SYSTEM 

SYSTEM 

TABSG 

TABSG 

TABSG 

TABSG 

TABSG 

TABSG 

SETSMG 

SETSMG 

SETSMG 


SETSMG 


SETSMG 

SETSMG 


SETSMG 

SETSMG 

SETSMG 


SETSMG 


MODESG 

SETSMG 
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XMIN*0., XMAX =.72967, 
YMIN=0., YMAX=1.I 
3.-STRIP CHART 




(OBJECT SPACE IS 
XMIN=0•* XMAX=1., 
YMIN=0., YMAX=1•I 

RESET TO 



91 

FILM ADVANCE 

DISTANCE TO ADVANCE FILM IN 

PERFS. 

6. 

SYSTEM 

92 

FORMS FLASH 

AUTOMATIC FORMS FLASH. 
O.-OFF 

1 .—ON 


0. 

SETSMG 

93 

FRAME MARKS 

AUTOMATIC FRAME MARKS. 
O.-NONE 

1. -CORNER MARKS 

2. -ID 

3. -CORNER MARKS AND ID 


3. 

SETSMG 

94 

LINE DENSITY 

DENSITY OF LINES. 

O.-NORMAL 

1.-LIGHT 


0. 

SETSMG 

95 

FAST PLOT 

SPEED TO PLOT CHARACTERS. 
O.-NORMAL 

1.-FAST 


0. 

SETSMG 

96 

FRAME COUNT 

NO. FRAMES PRODUCED 


0. 

SYSTEM 

100 

AXES FLAG 

EMPHASIS OF MAJOR AXES. 

0.-EMPHASIZE BOTH 

1. -EMPHASIZE X=0 ONLY 

2. -EMPHASIZE Y=0 ONLY 

3. -N0 EMPHASIS 


0. 

SETSMG 

102 

X TICK MARKS 

LENGTH OF X-AXIS TICK MARK 
NORMALIZED OBJECT SPACE. 

IN 

0. 

SETSMG 

103 

Y TICK MARKS 

LENGTH OF Y-AXIS TICK MARK 
NORMALIZED OBJECT SPACE. 

IN 

0. 

SETSMG 

104 

X-AXIS LABEL 

NO. TIMES CHARACTER HEIGHT 
POSITION X-AXIS LABEL. 

♦ LABEL ABOVE GRID 
- LABEL BELOW GRID 

0. LABEL AT Y=0 

TO 

-1.5 

SETSMG 

105 

Y-AXIS LABEL 

NO. TIMES CHARACTER WIDTH TO 

-1.5 

SETSMG 


POSITION Y-AXIS LABEL. 

♦ LABEL RIGHT SIDE OF GRID 
- LABEL LEFT SIDE OF GRID 
0. LABEL AT X=0 


106 

LEFT MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 SETSMG 

107 

RIGHT MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 SETSMG 

108 

BOTTOM MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 SETSMG 

109 

TOP MARGIN 

RELATIVE GRID MARGIN IN NORMALIZED 
OBJECT SPACE. 

0.15 SETSMG 

110 

SQUARE GRID 

FORCE VALUES FOR A SQUARE GRID TO 

BE CALCULATED. 

O.-NOT FORCED TO BE SQUARE. 
l.-MUST BE SQUARE. 

0. SETSMG 

ill 

X-AXIS OENSITY 

MIN DISTANCE BETWEEN X-AXIS GRID 
LINES IN NORMALIZED OBJECT 
SPACE. 

•01009SETSMG 

112 

Y-AXIS DENSITY 

MIN DISTANCE BETWEEN Y-AXIS GRID 
LINES IN NORMALIZED OBJECT 
SPACE. 

•01660SETSMG 
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113 MIN X-TITLE NORMALIZED OBJECT SPACE UNAVAILABLE - LABELG 

FOR TITLES. 

114 MIN Y-TITLE NORMALIZED OBJECT SPACE UNAVAILABLE - LABELG 

FOR TITLES. 

115 MAX X-TITLE NORMALIZED OBJECT SPACE UNAVAILABLE - LABELG 

FOR TITLES. 

116 MAX Y-TITLE NORMALIZED OBJECT SPACE UNAVAILABLE - LABELG 

FOR TITLES. 

131 SKEW ANGLE VECTOR CHARACTER SKEW ANGLE IN 0. SETSMG 

DEGREES. 

132 X-MULT VECTOR CHARACTER MULTIPLE OF l. SYSTEM 

STANDARD CHARACTER WIOTH. 

133 Y-MULT VECTOR CHARACTER MULTIPLE OF 1. SYSTEM 

STANDARD CHARACTER HEIGHT. 

134 SKEW FACTOR TAN(SKEW ANGLE) 0. SYSTEM 

135 ROTATION ANGLE VECTOR CHARACTER ROTATION ANGLE IN 0. SYSTEM 

RADIANS. 

136 FONT NUMBER VECTOR CHARACTER FONT NUMBER. - SYSTEM 

137 CHARS/CASE NUMBER OF VECTOR CHARACTERS PER CASE 0. SYSTEM 

138 X-DISP VECTOR CHARACTER ENVELOPE CENTER - SYSTEM 

139 Y-DISP VECTOR CHARACTER ENVELOPE CENTER - SYSTEM 

140 WIDTH ADJ VECTOR CHAR. WIDTH ADJUSTMENT - SYSTEM 

141 HEIGHT ADJ VECTOR CHAR. HEIGHT ADJUSTMENT - SYSTEM 

143 NO. OF CASES VECTOR CHARACTER FONT CASES. - SYSTEM 

146 PACKING FLAG VECTOR CHARACTER PACKING FLAG. - SYSTEM 

0. = l WORD/COORD. 

1. * 1 BYTE/COORD. 

147 CHARACTER TYPE TYPE OF CHARACTERS IN FONT. - SYSTEM 

0. - VECTOR 
1. - STROKE 

150 POINTER POINTER TO CURRENT VECTOR CHARACTER - SYSTEM 

FONT. 

SPECIAL NONE 
MODS NONE 


NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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c ****************************subroutine RSETMG******************************** 
RESET ALL DEFAULT VALUES IN MODE SET ARRAY. (RSETMG) 

PURPOSE THIS ROUTINE RESETS ALL VALUES IN THE MODE SET ARRAY TO 
THEIR PROPER DEFAULT VALUES. 

CALL CALL RSETMG(Z) 

Z IS THE MODE SET ARRAY. 

SPECIAL NONE 

MODS NONE 

USES SUBROUTINES METAZZ.SETSMG 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THE HARDCOPY MODE SET WILL NOT BE RESET. 
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C****************************SUBROUTINE TABSG********************************’ 
SET UP TYPING TABS. (TABSG) 

PURPOSE THIS SUBROUTINE IS CALLED TO SET UP TYPING TABS. ITS 
FUNCTION IS VERY SIMILAR TO THE SETTING OF TABS ON A 
TYPEWRITER. THE MAIN DIFFERENCES ARE THAT THE TABS ARE SET 
TO AN X-CCORDINATE LOCATION RATHER THAN TO A CHARACTER 
POSITION, AND THE TAB IS ACTUATED BY A SPECIAL TAB CHARACTER 
RATHER THAN BY MANUALLY HITTING A TAB KEY. 

CALL CALL TABSG(Z*NTABS,TABS) 

Z IS THE MODE SET ARRAY. 

NTABS IS THE NUMBER OF TABS TO BE SET. A MAXIMUM OF 
TEN TABS IS ALLOWED. 

TABS IS AN ARRAY OF 'NTABS* X-COORDINATES SPECIFYING 
THE TABS TO SET. 

SPECIAL NONE 

MODS NONE 

USES SUBROUTINES METAZZ,ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

EACH TAB CHARACTER ENCOUNTERED IN A CHARACTER STRING CAUSES 
A TAB TO THE NEXT TAB SET. IF THERE ARE NO MORE TABS, IT 
SKIPS TO THE RIGHT MARGIN. THE NEXT CHARACTER ENCOUNTERED 
WILL CAUSE AN EJECTION TO A NEW LINE. EACH NEW LINE RESETS 
THE TAB COUNTER IN THE SAME WAY THAT A CARRIAGE RETURN 
RESTARTS THE TABBING SEQUENCE ON A TYPEWRITER. 
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(;***********************♦***♦SUBROUT INE PAGEG*******************************< 
CONTROL FORMS FLASH AND FRAME ADVANCE* (PAGEGJ 

PURPOSE THIS SUBROUTINE IS CALLED TO DO A FORMS FLASH (IF REQUESTED) 
PRODUCE HARDCOPY (IF REQUIRED), AND ADVANCE THE FRAME. THE 
FORMS FLASH CAUSES THE FORMS OVERLAY TO BE •SHOT* ONTO THE 
CURRENT FRAME. FRAME ADVANCE SIGNALS THE COMPLETION OF THE 
CURRENT PICTURE AND ADVANCES THE FILM. 

CALL CALL PAGEG(Z »NFORM,NCOPY,NADVAN) 

Z IS THE MODE SET ARRAY. 

NFORM SPECIFIES WHETHER OR NOT THE FORMS FLASH IS 
WANTED. 

NF0RM*O, NO FORMS FLASH. 

NF0RM>0, FLASH THE FORMS •NFORM* TIMES. 

NCOPY SPECIFIES THE NUMBER OF HARDCOPIES TO MAKE OF THE 
FRAME. (NC0PY=0, NO COPIES ARE MADE.) 

NADVAN SPECIFIES THE NUMBER OF FRAMES TO AOVANCE. IF 
NADVAN*0, THE FRAME IS NOT ADVANCED. (1 ADVANCE 
IS NORMAL.) 

SPECIAL NONE 

MODS NONE 

USES SUBROUTINES METAZZ.ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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£4^**************************SUBROUTINE EXITG******************************** 
TERMINATE THE GRAPHIC OUTPUT. (EXITGI 

PURPOSE THIS SUBROUTINE DOES ALL THE CLEANUP NECESSARY FOR 

TERMINATING A GRAPHIC JOB. IT CLOSES FILES AS NEEDED* AND 
DOES WHATEVER ACCOUNTING IS NECESSARY. IT MUST BE THE LAST 
GRAPHIC SUBROUTINE CALLED BEFORE THE JOB IS TERMINATED. 

CALL CALL EXITG(Z) 

Z IS THE MODE SET ARRAY. 

SPECIAL THE FOLLOWING CALL MAY BE USED BY THE SYSTEM PROGRAMMER TO 
ABNORMALLY TERMINATE THE USER. THE CALL IS THE SAME AS THE 
ABOVE EXCEPT THAT THE REFERENCE TO THE MODE SET ARRAY IS NOT 
REQUIRED. THE CALL IS AS FOLLOWS: 

CALL EXITG(O) 

MODS NONE 

USES SUBROUTINES METAZZ*PACKZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THIS SUBROUTINE MAY BE MODIFIED BY EACH INSTALLATION TO SUIT 
ITS PARTICULAR NEEDS. 

EACH INSTALLATION WILL HAVE THE OPTION OF ALLOWING THE 
PROGRAMMER TO MAKE THE CALL HIMSELF* OR TO MODIFY THEIR 
SYSTEM TO MAKE THE CALL FOR HIM. SYSTEM PROGRAMMERS MAY 
ALSO WANT TO MODIFY THEIR SYSTEMS TO GIVE THE SPECIAL EXIT 
CALL IN THE EVENT THAT THE USER'S PROGRAM ABNORMALLY 
TERMINATES. 
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C****************************$u8gGuT INE VECIG******************************** 
INITIALIZE A VECTOR CHARACTER FONT. (VECIG) 

PURPOSE THIS SUBROUTINE INITIALIZES A VECTOR CHARACTER FONT AS 
FOLLOWS: 

1) IT SETS THE ADDRESS OF THE FONT IN THE MODE SET 
ARRAY(MODE 1501. 

2) IT SETS OTHER FONT INFORMATION IN THE MODE SET 
ARRAY (MODES 136-1471. 

3) IT CALCULATES ANO SETS THE MULTIPLIERS NECESSARY TO 
PRODUCE THE FONT TO THE CURRENT CHARACTER WIDTH AND 
HEIGHT(MOOES 132 E 133. THESE ARE ALSO SET 
BY SETSMG)• 

CALL CALL VECIG<Z,FONT) 

Z IS THE MODE SET ARRAY. 

FONT IS THE NAME ASSIGNED TO THE BEGINNING OF DATA 
FOR THIS FONT. 

SPECIAL NONE 


USES SUBROUTINES SCALZZ,SETSMG,UNSCZZ, FUNCTION LOCZ 

NOTES THE NAME OF EACH FONT TO BE INITIALIZED MUST APPEAR ON AN 

•EXTERNAL* CARD IN FORTRAN IV. 

ONLY ONE FONT MAY BE IN EFFECT AT ANY ONE TIME. IN ORDER TO 
CHANGE TO A NEW FONT, THIS SUBROUTINE MUST BE CALLED. 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 


4-19 



9500360 


GRAPHIC OUTPUT SUBROUTINES 


The following call statements refer to the subroutines which perform the printing, 
plotting, and line drawing functions. 
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The following diagrams give a pictorial view of what each graphic 
output subroutine does. 



Draw joined lines— 
LINESG 


O 


Draw circles and 


Draw line segments— 
SEGMTG 


Draw multiple lines- 
MLTPLG 


+ + ♦ 


ar cs—CIRARG 


Plot po i nt s—POI NTG 


A 

BC 

DEf g 
h*/K 

Display characters-LEGNDG,TEXTG 


27 

36.293 
0.263 E + 0 6 
0.263X10 +06 

Display numeric data—NUMBRG 


Figure 10. Graphic Output Subroutines 
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****************************SUBRCUT IN£ CIRARG******************************* 
DRAW A CIRCLE OR AN ARC. (CIRARG) 

PURPOSE THIS SUBROUTINE IS USED TO DRAW A CIRCLE OR ARC. SINCE 
A CURVED LINE CANNOT BE DRAWN, THE CIRCLE OR ARC IS 
APPROXIMATED BY DRAWING SHORT LINE SEGMENTS. 

CALL CALL ClRARG(Z,XC,YC,RADIUS,START,ARC) 

Z IS TH.E MODE SET ARRAY. 

XC * YC IS THE X,Y LOCATION OF THE CENTER POINT OF THE 
ARC. 

RADIUS IS THE RADIUS OF CURVATURE. IT SHOULD BE IN THE 
SAME UNITS AS THE X COORDINATES. 

START IS THE STARTING ANGLE IN DEGREES. COUNTERCLOCK¬ 
WISE ANGLES ARE POSITIVE. (0. DEGREES IS 
HORIZONTAL AND TO THE RIGHT.) 

ARC IS THE NUMBER OF DEGREES OF ARC TO DISPLAY. FOR 
EXAMPLE, AN ARC OF 720. WOULD CAUSE TWO COMPLETE 
CIRCLES TO BE DRAWN, ONE ON TCP OF THE OTHER. 

SPECIAL NONE 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

1. TO CHANGE THE ANGLE BETWEEN TWO SUCCESSIVE POINTS, 

GIVE THE FOLLOWING CALL: 

CALL SETSMGIZ,83,ANGLE) 

ANGLE IS THE ANGLE IN DEGREES BETWEEN TWO 
POINTS ON THE ARC. 

ANGLE = 5. IS THE DEFAULT VALUE. 

2. TO DRAW THE ARC WITH POINTS RATHER THAN LINE 
SEGMENTS, GIVE THE FOLLOWING CALL: 

CALL SETSMGIZ,82«1. ) 

TO RESET IT TO DRAW THE ARC WITH LINE SEGMENTS, 

GIVE THE FOLLOWING CALL: 

CALL SETSMGIZ,82,0.) 

NOTE-WHEN AN ARC IS DRAWN WITH POINTS, ALL THE MODE 
SETS DESCRIBED IN «POINTG* ARE IN EFFECT. POINTS 
WILL BE PLOTTED AT THE STARTING AND ENDING POINTS 
OF AN ARC. THIS MEANS THAT IF A 360. ARC IS 
SPECIFIED, A POINT WILL BE DISPLAYED AT 0. AND AT 
360. (THE SAME LOCATION). 

USES SUBROUTINES LINESG,POINTG. 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

ALL MODE SETS DESCRIBED IN SUBROUTINE LINESG WILL BE IN 
EFFECT IF THE CIRCLE IS DRAWN WITH LINE SEGMENTS, ANO ALL 
MODE SETS DESCRIBED IN SUBROUTINE POINTG WILL BE IN EFFECT 
IF THE CIRCLE IS DRAWN WITH POINTS. 
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C****************************SUBROUTINE LEGNDG*************************♦**♦♦♦ 
01 SPLAY CHARACTERS- (LEGNDG) 

PURPOSE THIS SUBROUTINE IS USED TO DISPLAY CHARACTERS. IF THE 

CHARACTERS GO BEYOND THE RIGHT MARGIN* THE LINE IS EJECTED 
TO THE LEFT MARGIN. IF THE LINE GOES BEYOND THE BOTTOM 
MARGIN* THE LINE IS EJECTED TO THE TOP. 

CALL CALL LEGNDG<Z,X,Y,N,CHAR) 

Z IS THE MODE SET ARRAY. 

X,Y IS THE LOCATION OF THE CENTER OF THE FIRST 
CHARACTER. 

N IS THE NUMBER OF CHARACTERS TO DISPLAY. IN => II 
CHAR IS THE NAME OF A VARIABLE OR AN ARRAY WHICH 
CONTAINS THE CHARACTER STRING TO DISPLAY. 


SPECIAL NONE 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

1. TO CHANGE THE CHARACTER SIZE, GIVE THE FOLLOWING 
CALL: 

CALL SETSMGIZ,45,SIZE) 

SIZE SPECIFIES THE SIZE OF THE CHARACTERS 
RELATIVE TO NORMAL SIZE. 1.75, l.O, 
1.25, AND 1.5 ARE ALLOWED FOR 
CHARACTRON CHARACTERS.I 
SIZE = 1.0 IS THE DEFAULT VALUE. 

2. TO CHANGE THE CHARACTER WIDTHIVECTOR CHARACTERS 
ONLY), GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMGIZ,42,W) 

W IS THE CHARACTER WIDTH IN SUBJECT SPACE 
UNITS. 

W = 31. IS THE DEFAULT VALUE. 

3. TO CHANGE THE CHARACTER HE IGHTI VECTOR CHARACTERS 
ONLY), GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMGIZ,43,H) 

H IS THE CHARACTER HEIGHT IN SUBJECT 
SPACE UNITS. 

H = 51. IS THE DEFAULT VALUE. 

4. TO CHANGE THE LINE AND CHARACTER ORIENTATION, GIVE 
THE FOLLOWING MODE SET CALL: 

CALL SETSMGIZ,46,ORIEN) 

ORIEN SPECIFIES THE ORIENTATION OF THE 

LINE AND CHARACTERS. 0. AND 90. ARE 
ALLOWED FOR CHARACTRON CHARACTERS. 

0. IS THE NORMAL UPRIGHT POSITION. 
THE ANGLE OF ORIENTATION IS POSITIVE 
IN THE COUNTERCLOCKWISE DIRECTION. 
ORIEN = 0. IS THE DEFAULT VALUE. 

5. TO CHANGE THE CHARACTER SPACING, GIVE THE FOLLOWING 
CALLS: 

CALL SETSMGlZ»47,+—SPACE) 

SPACE SPECIFIES THE CHARACTER SPACING IN 
THE TYPING DIRECTION. PLUS OR MINUS 
SPACING MAY BE SET. 

SPACE = 1. IS THE DEFAULT VALUE. 

6. TO SPECIFY THE NUMBER OF LINES TO SPACE UP OR DOWN 
IF THE CHARACTERS GO BEYOND THE RIGHT MARGIN AND 
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CAUSE THE LINE TO BE EJECTED TO THE LEFT MARGIN, 

GIVE THE FOLLOWING CALL: 

CALL SETSMGIZ*49»+-SPACE) 

SPACE SPECIFIES THE NUMBER OF LINES TO 
SPACE UP OR DOWN. THIS IS EQUI¬ 
VALENT TO SETTING THE NUMBER OF 
LINES TO SPACE FOR A CARRIAGE RETURN 
ON A TYPEWRITER. A MINUS SPACING 
CAUSES THE LINE TO BE SPACED DOWN 
THE PAGE, AND A POSITIVE SPACING 
CAUSES IT TO MOVE UP THE PAGE. 

SPACE = -1. IS THE DEFAULT VALUE. 

TO CHANGE THE LINE ORIENTATION, GIVE THE 
FOLLOWING CALL: 

CALL SETSMGIZ,50,ANGLE) 

ANGLE SPECIFIES THE ANGLE IN DEGREES 

AT WHICH THE LINE OF CHARACTERS IS 
TO BE DISPLAYED. 10. DEGREES IS 
HORIZONTAL AND TO THE RIGHT.) 
COUNTERCLOCKWISE ANGLES ARE 
POSITIVE. 

ANGLE = 0. IS THE DEFAULT VALUE. 

NCTE-THIS CALL DOES NOT CHANGE THE 
CHARACTER ORIENTATION. 

TO SPECIFY THE MARGINS OF THE PAGE, GIVE THE 
FOLLOWING MODE SET CALLS: 

CALL SETSMGIZ,60,XLEFT) 

XLEFT SPECIFIES THE LEFT MARGIN OF THE 
PAGE IN SUBJECT SPACE COORDINATES. 
XLEFT = 0. IS THE DEFAULT VALUE. 

CALL SETSMGIZ,61,RIGHT) 

RIGHT SPECIFIES THE RIGHT MARGIN OF THE 
PAGE IN SU8JECT SPACE COORDINATES. 
RIGHT » 4095. IS THE DEFAULT VALUE. 

CALL SETSMGIZ,62,BOTTOM) 

BOTTOM SPECIFIES THE BOTTOM MARGIN OF THE 
PAGE IN SUBJECT SPACE COORDINATES. 
BOTTOM * 0. IS THE DEFAULT VALUE. 

CALL SETSMGIZ,63,TOP) 

TOP SPECIFIES THE TOP MARGIN OF THE 

PAGE IN SUBJECT SPACE COORDINATES. 

TOP * 3071. IS THE DEFAULT VALUE. 

TO CHANGE THE CHARACTER FONT, GIVE THE FOLLOWING 
CALL: 

CALL SETSMGIZ,51,FONT) 

FONT = 0., CHARACTRON CHARACTERS. 

1., VECTOR CHARACTERS. 

2.. 3.,•••,N. WILL BE DEFINED LATER. 
FONT * 0. IS THE DEFAULT VALUE. 

NOTE-ALL MODE SETS DESCRIBED IN SUBROUTINE LINESG 
ARE IN EFFECT FOR VECTOR CHARACTERS. 

TO SET THE SKEW ANGLE I VECTOR CHARACTERS 
ONLY), GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMGIZ,131,ANG) 

ANG IS THE SKEW ANGLE IN DEGREES AND MUST 
BE BETWEEN +90. AND -90. DEGREES. 

ANG * POSITIVE INDICATES SKEWING TO 
THE LEFT. 


ANG = NEGATIVE INDICATES SKEWING TO 


/I _9A 



nnoooooonnonoooooooooonoooooooooo 


9500360 


USES 

NOTES 


THE RIGHT. 

ANG * 0. IS THE DEFAULT VALUE. 

II. TO SPECIFY THE CHARACTER CASE BY A MODE SET RATHER 
THAN BY SPECIAL CONTROL CHARACTERS, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,52,CASE) 


CASE = 

0., 

UPPER 

CASE 


i* t 

LOWER 

CASE 


2., 

SPECIAL CASE 

CASE = 

0. 

IS THE 

DEFAULT VALUE. 


12. TO SPECIFY THAT A FRAME ADVANCE BE GIVEN IF THE 
LINE GOES BEYOND THE TOP OR BOTTOM MARGINS, GIVE 
THE FOLLOWING MODE SET CALL. 

CALL SETSMG(Z*44»1. ) 

TO RESET TO THE DEFAULT CONDITION WHERE NO FRAME 
ADVANCE IS GIVEN, GIVE THE FOLLOWING CALL: 

CALL SETSMG(Z,44,0.) 

13. TO SPECIFY THE FORM OF THE X,Y COORDINATES USED IN 
THE CALL, GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMG!Z,14,TYPE) 

TYPE SPECIFIES THE FORM OF THE X,Y 
COORDINATES. 

O.-X,Y ARE REAL SUBJECT SPACE UNITS. 

1. -X,Y ARE REAL ABSOLUTE RASTER 

UNITS. 

2. —X,Y ARE INTEGER ABSOLUTE RASTER 

UNITS. 

3. -X,Y ARE REAL NORMALIZED OBJECT 

SPACE UNITS. 

SUBROUTINES METAZZ,ERRZZ,VECSZZ 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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£*********************«******SUBROUT INE L INESG******************************* 
DRAW JOINED LINES. (LINESG) 

PURPOSE THIS ROUTINE IS USED TO DRAW CONNECTED LINE SEGMENTS* 

JOINING POINTS IN AN X,Y ARRAY. 

CALL CALL LINESG(Z,N,X,Y) 

Z IS THE MODE SET ARRAY. 

N IS THE NUMBER OF X,Y COORDINATES. (N-i JOINED LINE 
SEGMENTS WILL BE DRAWN.} 

X*Y ARE AN ARRAY OF X*Y COORDINATES. A LINE IS DRAWN 
BETWEEN EACH POINT IN THE ARRAY. 

SPECIAL TO DRAW A LINE FROM THE CURRENT POINT POSITION TO AN X,Y 
LOCATION- 

CALL LINESG(Z*1*X»Y) 

TO POSITION THE CURRENT POINT TO AN X,Y LOCATION WITHOUT 
DISPLAYING ANYTHING— 

CALL LINESGIZ,C*X,Y) 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS? 

1. TO SPECIFY THE LINE WIDTH, GIVE THE FOLLOWING CALL: 

CALL SETSMGIZ,30,TIMES) 

TIMES SPECIFIES THE LINE WIDTH RELATIVE 
TO NORMAL LINE WIDTH OF 4 RASTERS. 

TIMES = 0.5, ONE HALF TIMES NORMAL. 

1.0, NORMAL. (4 RASTERS) 

2.0, TWO TIMES NORMAL. 

4.0, FOUR TIMES NORMAL. 

TIMES = 1. IS THE DEFAULT VALUE. 

2. TO SPECIFY THAT A DASHED LINE BE DRAWN, GIVE THE 
FOLLOWING CALL: 

CALL SETSMGIZ,31,DASH) 

DASH SPECIFIES THE DASH SIZE. 

0., SOLID LINE. 

1., 32 RASTERS. 

2., 64 RASTERS. 

3., 128 RASTERS. 

4., 256 RASTERS. 

DASH = 0. IS THE DEFAULT VALUE. 

3. TO SPECIFY THE LINE DENSITY, GIVE THE FOLLOWING 
MODE SET CALL: 

CALL SETSMG(Z,94,DEN) 

DEN = 0., NORMAL OENSITY 

1., LIGHT DENSITY 
DEN = 0. IS THE DEFAULT VALUE. 

4. TO SPECIFY THE FORM OF THE X,Y COORDINATES USED IN 
THE CALL, GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,14,TYPE) 

TYPE SPECIFIES THE FORM OF THE X,Y 
COORDINATES. 

0.-X,Y ARE REAL SUBJECT SPACE UNITS. 

1. —X,Y ARE REAL ABSOLUTE RASTER 
UNITS. 

2. -X.Y ARE INTEGER ABSOLUTE RASTER 
UNITS. 

3*-X,Y ARE REAL NORMALIZED OBJECT 
SPACE UNITS. 
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C****************************SUBRGUTINE MLTPLG******************************** 
DRAW MULTIPLE LINE SEGMTNTS. (MLTPLGI 

PURPOSE THIS SUBROUTINE IS USED TO DRAW MULTIPLE LINE SEGMENTS. TWO 
LINES ARE FIRST SPECIFIED TO BE DRAWN. NEXT, THE NUMBER OF 
LINE SEGMENTS TO BE DRAWN BETWEEN THE TWO LINES IS GIVEN. 

THIS ROUTINE IS VERY USEFUL IN DRAWING GRID LINES, CROSS- 
HATCHING, AND SHADING. THIS ROUTINE IS NOT LIMITED TO 
DRAWING PARALLEL LINES; THE TWO DELIMITING LINES MAY BE AT 
ANY ORIENTATION TO EACH OTHER. 

CALL CALL MLTPLGIZ,N,X I,YI,X2,Y2,X3,Y3,X4,Y4) 

Z IS THE MODE SET ARRAY. 

N SPECIFIES THE NUMBER OF LINES TO DRAW BETWEEN THE 
TWO GIVEN LINES. IF N = 0, ONLY THE TWO GIVEN 
LINES WILL BE DRAWN. 

XI,Y1 AND X2,Y2 ARE TWO POINTS SPECIFYING A LINE. 

X3,Y3 AND X4,Y4 ARE TWO POINTS SPECIFYING A LINE. 

SPECIAL NONE 

MODS ALL MODE SETS DESCRIBED IN LINESG ARE APPLICABLE TO THIS 

SUBROUTINE. 

USES SUBROUTINES METAZZ»ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

MLTPLG HAS MANY USES NOT AT FIRST APPARENT. IT IS A 
CONVENIENT MEANS OF DRAWING ANY TWO LINE SEGMENTS WITH A 
SINGLE CALL. IF THE DELIMITING LINE SEGMENTS ARE VERY 
SHORT, THE VECTORS DRAWN WILL APPEAR AS POINTS. THIS GIVES 
THE USER A WAY OF PLOTTING MANY POINTS WITH A SINGLE CALL— 
EXACTLY WHAT ONE DESIRES WHEN HE IS DOING SHADING. IT 
SHOULD BE NOTED THAT THE TWO DELIMITING LINES NEED NOT BE 
PARALLEL. 
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****************************SUBROUTINE NUMBRG******************************** 
DISPLAY NUMERIC DATA. CNUMBRG) 

PURPOSE THIS SUBROUTINE IS USED TO DISPLAY INTEGER OR REAL NUMBERS. 

CALL TO DISPLAY AN INTEGER NUMBER IN I FORMAT— 

CALL NUMBRGIZ,X,Y,IFMT,INTG) 

Z IS THE MODE SET ARRAY. 

X , Y IS THE X » Y LOCATION AT WHICH TO OISPLAY THE 
NUMBER. IT IS THE X,Y LOCATION OF THE 
CENTER OF THE LEFT-MOST CHARACTER. 

IFMT IS THE NUMBER OF DIGITS TO DISPLAY. 

INTG IS THE NUMBER TO DISPLAY. 

TO DISPLAY A REAL NUMBER IN F FORMAT— 

CALL NUMBRG(ZtXtYfFMTfREAL) 

Z IS THE MODE SET ARRAY. 

X»Y IS THE X * Y LOCATION AT WHICH TO DISPLAY THE 
NUMBER. IT IS THE X,Y LOCATION OF THE 
CENTER OF THE LEFT-MOST CHARACTER. 

FMT SPECIFIES THE FORMAT. IT IS OF THE FORM W.D, 

WHERE W SPECIFIES THE FIELD WIDTH, AND D 
THE NUMBER OF DECIMAL PLACES. CO < 10) 

REAL IS THE NUMBER TO DISPLAY. 

TO DISPLAY A REAL NUMBER IN E FORMAT— 

CALL NUMBRGIZ,X,Y,-FMT,REAL) 

TO DISPLAY CHARACTERS IN A FORMAT- 
CALL NUMBRGIZ,X*Y,-IFMT,CHARS) 

SPECIAL A SPECIAL CALL IS PROVIDED TO ALLOW THE FORMAT TO BE 
SPECIFIED BY MODE SETS: 

CALL NUMBRGCZ,X,Y,0,VALUE) 

VALUE IS THE VARIABLE TO BE DISPLAYED. THE FORMAT 
MUST BE SPECIFIED BY MODE SET CALLS PRIOR TO 
THE CALL TO NUMBRG. THE MOOE SET CALLS ARE 
AS FOLLOWS: 

CALL SETSMGCZ,77,WIDTH) 

WIDTH IS THE FIELD WIDTH. 

CALL SETSMGCZ,78,DEC) 

DEC IS THE NUMBER OF DECIMAL 
PLACES. 

CALL SETSMGCZ,79,FMT) 

FMT IS THE FORMAT TO DISPLAY THE 
NUMBER IN. 

FMT » I., I FORMAT 

2., F FORMAT 

3., E FORMAT 

4., A FORMAT 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

1. TO DISPLAY NUMBERS IN SCIENTIFIC NOTATION RATHER 
THAN E FORMAT, GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMGCZ,85,l.) 

TO RESET TO THE DEFAULT CONDITION OF E FORMAT, 

GIVE THE FOLLOWING CALL: 

CALL SETSMGCZ,85,0.) 
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USES 

NOTES 


2. ALL MODE SETS DESCRIBED IN LEGNDG ARE ALSO 
APPLICABLE TO THIS SUBROUTINE. 

SUBROUTINES LEGNDG,FMTSG,ERRZZ 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THE CODING OF THIS SUBROUTINE TAKES ADVANTAGE OF THE FACT 
THAT NON-ZERO FLOATING POINT NUMBERS ARE LARGER THAN 
REASONABLE VALUES FOR INTEGERS BECAUSE THE CHARACTERISTIC OF 
A FLOATING POINT NUMBER IS IN THE LEFT PART OF THE WORD. IF 
THE USER'S MACHINE DOES NOT HAVE THIS FORMAT, THE SPECIAL 
CALL MUST BE USEO. 
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£****************************SUBRCUTINE P0lNTG**********4******4************** 
C PLOT POINTS. (POINTG) 

C 

C PURPOSE THIS ROUTINE IS USED TO PLOT AN ARRAY OF POINTS. 

C 

C CALL CALL POINTG(Z,N,X,Y) 

C Z IS THE MODE SET ARRAY. 

C N IS THE NUMBER OF POINTS, (N => I). 

C X,Y ARE ARRAYS OF »N f X AND Y COORDINATE PAIRS TO PLOT. 

C 


C SPECIAL 
C 

C MOOS 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NONE 

THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 
WITH MODE SETS: 

1. TO SPECIFY A NEW PLOTTING SYMBOL (THE DEFAULT 
CHARACTER IS A NORMAL SIZE POINT), CHANGE THE MODE 
SET AS FOLLOWS: 

CALL SETSMGJZ,84,VALUE) 

VALUE MUST CONTAIN THE CHARACTER, 

LEFT JUSTIFIED, TO USE FOR PLOTTING. 
TO RESET TO THE OEFAULT VALUE OF A POINT, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,84,0.) 

2. TO CHANGE THE PLOTTING CHARACTER SIZE, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,53,SIZE) 

SIZE SPECIFIES THE SIZE OF THE CHARACTERS 
RELATIVE TO NORMAL SIZE. (.75, l.O, 
1.25, AND 1.5 ARE ALLOWED.) 

SIZE = 1.0 IS THE DEFAULT VALUE. 

3. TO CHANGE THE PLOT CHARACTER ORIENTATION, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,46,OR IEN) 

ORIEN SPECIFIES THE ORIENTATION OF THE 
CHARACTER. ORIEN = 0. OR 90. ARE 
ALLOWED. 0. IS THE NORMAL UPRIGHT 
POSITION. THE ANGLE OF ORIENTATION 
IS POSITIVE IN THE COUNTERCLOCKWISE 
DIRECTION. 

ORIEN * 0. IS THE OEFAULT VALUE. 

4. TO CHANGE THE PLOT CHARACTER CASE, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,55,CASE) 

CASE * 0., UPPER CASE 

1., LOWER CASE 

2., SPECIAL CASE 

CASE * 0. IS THE DEFAULT VALUE. 

5. TO SPECIFY THE FORM OF THE X,Y COORDINATES USED IN 
THE CALL, GIVE THE FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,14,TYPE) 

TYPE SPECIFIES THE FORM OF THE X,Y 
COORDINATES. 

0.-X,Y ARE REAL SUBJECT SPACE UNITS. 
1•-X,Y ARE REAL ABSOLUTE RASTER 
UNITS. 

2. -X,Y ARE INTEGER ABSOLUTE RASTER 

UNITS. 

3. -X,Y ARE REAL NORMALIZED OBJECT 

SPACE UNITS. 
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C***+************************SUBROUTINE SEGMTG******************************** 
DRAW LINE SEGMENTS. (SEGMTG) 

PURPOSE THIS ROUTINE IS USEO TO DRAW NONCONTIGUOUS LINE SEGMENTS. 

THE INITIAL X,Y COORDINATES OF EACH SEGMENT ARE SPECIFIED 
IN THE ARRAYS X1,Y1; THE TERMINAL X,Y COORDINATES ARE 
SPECIFIED IN THE ARRAYS X2,Y2. 

CALL CALL SEGMTG<Z,N,Xl,YL,X2,Y2) 

Z IS THE MODE SET ARRAY. 

N IS THE NUMBER OF LINE SEGMENTS TO DRAW. IF N > 1, 

XI*Yi AND X2,Y2 MUST BE ARRAYS OF POINTS. 

X1 *YI ARE ARRAYS CONTAINING THE STARTING POINTS OF 
EACH LINE. 

X2*Y2 ARE ARRAYS CONTAINING THE TERMINAL POINTS OF 
EACH LINE. 

SPECIAL NONE 

MODS ALL MODE SETS DESCRIBED IN LINESG ARE ALSO APPLICABLE TO 

THIS SUBROUTINE. 

USES SUBROUTINES METAZZ»ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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C** ************************** SUBROUTINE T EX TG**** 1 * **************************** 
C TYPE CHARACTERS. (TEXTG) 

C 

C PURPOSE THIS IS USED TO TYPE CHARACTERS. TYPING 8EGINS AT THE 
C CURRENT POINT POSITION. IF THE CHARACTERS GO BEYOND THE 

C RIGHT MARGIN, THE LINE IS EJECTED TO THE LEFT MARGIN. TEXTG 

C IS SIMILIAR IN FUNCTION TO LEGNOG. THE ONLY DIFFERENCE IS 

C THAT LEGNDG BEGINS TYPING AT A SPECIFIED X.Y COORDINATE 

C WHILE TEXTG BEGINS TYPING WHERE THE PREVIOUS DISPLAY LEFT 

C OFF. 

C 

C CALL CALL TEXTG<Z,N,CHAR) 

C Z IS THE MODE SET ARRAY. 

C N IS THE NUMBER OF CHARACTERS TO DISPLAY. (N =>1) 

C CHAR IS THE NAME OF A VARIABLE OR AN ARRAY WHICH 

C CONTAINS THE CHARACTER STRING TO OISPLAY. 

C 

C SPECIAL NONE 
C 

C MOCS ALL MODE SETS DESCRIBED IN LEGNOG ARE ALSO APPLICABLE TO 

C THIS SUBROUTINE. 

C 

C USES SUBROUTINES METAZZ»ERRZZ,VECSZZ 

C 

C NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

C 

C SUBROUTINE LINESG MAY BE USED TO POSITION THE BEAM TO ANY 

C SPECIFIED LOCATION. 
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GRAPH SUBROUTINES 

The composition of a graph may be broken down into three separate parts: a grid 
of lines, labels to indicate the values of the x and y grid lines, and titles to describe 
the variables being plotted. Data may then be plotted on the graph by using any of 
the graphic output subroutines such as POINTG or LINESG. 

A special subroutine, SETUPG, has been provided to aid the user in computing 
arguments that will result in aesthetically pleasing graphs when used in calls to the 
graph subroutines. All of these subroutines are then combined in subroutine GRAPHG 
to draw, label, title, and plot data for an entire graph. 
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****************************SUBROUTINE GRIDG********************************* 
DRAW A GRID. (GRIDG) 

PURPOSE THIS SUBROUTINE IS CALLED TO CONSTRUCT A CARTESIAN GRID. 

THE SUBROUTINE DRAWS ALL THE LINES NEEDED* AND EMPHASIZES 
THE MAJOR GRID DIVISIONS AS DIRECTED. 

GRIDG PRESUMES THAT THE USER HAS SET UP HIS SUBJECT SPACE 
WITH A CALL TO SUBJEG AND THAT HE HAS ALSO ESTABLISHED HIS 
OBJECT SPACE WITH A CALL TO OBJCTG. THE OBJECT SPACE SHOULD 
BE DEFINED SO THAT A MARGIN IS LEFT AROUND THE GRID SINCE 
THE GRID WILL FILL THE ENTIRE OBJECT SPACE. 

CALL CALL GRIDG<Z,DX,DY,IXTH,JYTH) 

Z IS THE MODE SET ARRAY. 

DX*DY ARE THE X,Y GRID INTERVALS IN USER COORDINATES. 

IF DX OR DY = 0., NO GRID LINES ARE DRAWN FOR IT. 

(DX CONTROLS SPACING BETWEEN THE VERTICAL GRID 
LINES ANO OY THE HORIZONTAL.) THE GRID LINES ARE 
DRAWN WITH 0.5 TIMES NORMAL LINE WEIGHT. 

IF THE USER'S X-AXIS SUBJECT SPACE DECREASES FROM 
LEFT TO RIGHT* OR THE Y-AXIS SUBJECT SPACE 
DECREASES FROM BOTTOM TO TOP, DX OR DY MUST BE 
NEGATIVE. 

IF THE O-AXIS LIES WITHIN THE GRID* DX OR DY ARE 
DRAWN FROM THE ZERO AXIS OUTWARD. OTHERWISE, THEY 
ARE DRAWN FROM LEFT TO RIGHT OR FROM BOTTOM TO 
TOP. 

IXTH,JYTH SPECIFY THE I'TH X-GRID LINE AND THE J'TH Y- 
GRID LINE TO EMPHASIZE. IF IXTH OR JYTH = 0., NO 
LINES ARE EMPHASIZED FOR IT. THE EMPHASIS LINES 
ARE DRAWN WITH 2. TIMES NORMAL LINE WEIGHT. 

SPECIAL A LOG GRID CAN BE DRAWN BY MAKING ONE OF THE MODE SETS 

DESCRIBED BELOW. THE SUBJECT SPACE MUST BE POSITIVE AND 
SHOULD BE A POWER OF TEN. TO DRAW A LOG GRID, MAKE THE 
INDICATED MODE SET CALL AND THEN CALL GRIDG. THE ARGUMENTS 
HAVE THE FOLLOWING SPECIAL MEANINGS FOR LOG GRIDS: 

DX,DY ARE IGNORED AND MAY BE DUMMY ARGUMENTS IF THE 
GRIO IN LOG IN X OR Y. 

IXTH,JYTH SPECIFY WHETHER THE MAJOR CYCLE LINES ARE TO 
BE EMPHASIZED. IF ZERO, NO EMPHASIS IS DONE. IF 
GREATER THAN ZERO, EMPHASIS IS DONE. 

MOOS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

1. TO CONTROL THE EMPHASIS OF THE MAJOR AXES, GIVE THE 
FOLLOWING CALL: 

CALL SETSMG(Z,100,EMPH) 

EMPH SPECIFIES THE EMPHASIS TO BE DONE. 

EMPH=0., EMPHASIZE X»0, Y=0 AXES. 

1., EMPHASIZE X=0 AXIS ONLY. 

2., EMPHASIZE Y*0 AXIS ONLY. 

3., NO EMPHASIS. 

EMPH = 0. IS THE DEFAULT VALUE. 

NOTE-THE EMPHASIS LINES ARE DRAWN WITH A. TIMES 
NORMAL LINE WEIGHT. THE EMPHASIS LINE WILL NOT BE 
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USES 

NOTES 


DRAWN IF THE ZERO AXIS LIES OUTSIDE OF THE GRID. 
FOR NONLINEAR GRIDS THE MAJOR AXES ARE DEFINED AS 
THE X»l f Y=1 AXES. 

2. TO DRAW A LOG GRID IN THE X-AXIS, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z,23,1.) 

TO RETURN TO THE DEFAULT CONDITION OF A LINEAR 
GRID, GIVE THE FOLLOWING CALL: 

CALL SETSMG!Z,23,0.I 

NOTE-BE SURE TO SET UP THE SUBJECT SPACE FOR THE 
LOG GRID BEFORE MAKING THIS MODE SET CALL. 

3. TO DRAW A LOG GRID IN THE Y-AXIS, GIVE THE 
FOLLOWING MODE SET CALL: 

CALL SETSMG(Z»24, 1. ) 

TO RETURN TO THE DEFAULT CONDITION OF A LINEAR 
GRID, GIVE THE FOLLOWING CALL: 

CALL SETSMG!Z,24,0.) 

NOTE-BE SURE TO SET UP THE SUBJECT SPACE FOR THE 
LOG GRID BEFORE MAKING THIS MODE SET CALL. 

SUBROUTINES SETSMG,MLTPLG,SEGMTG,ERRZZ 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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CALL GR1DG(Z,DX,DY,IXTH,JYTH) 
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****************************SUBROUTINE LABELG******************************* 
LABEL A GRID. (LABELG) 

PURPOSE THIS SUBROUTINE IS USED TO LABEL THE AXES OF A GRID ORAWN BY 
SUBROUTINE GRIDG. THE USER MAY LABEL EITHER THE X OR Y AXIS 
WITH NUMERIC OR ALPHANUMERIC LABELS. THE Y-AXIS WILL BE 
LABELED TO THE LEFT OF THE GRID ANO THE X-AXIS WILL BE 
LABELED BELOW IT. 

CALL TO CREATE ALPHANUMERIC LABELS— 

CALL LABELG< Z,I AXIS,DLXY,NCHAR,CHARS) 

Z IS THE MODE SET ARRAY. 

IAXIS SPECIFIES THE AXIS TO LABEL. 

I AXIS-0 » LABEL THE X-AXIS. 

1* LABEL THE Y-AXIS. 

DLXY SPECIFIES THE X INTERVAL IF IAXIS=0, OR THE Y 
INTERVAL IF IAXIS=l, IN USER COORDINATES 
(SUBJECT SPACE) BETWEEN EACH LABEL. 

IF THE X-AXIS DECREASES FROM LEFT TO RIGHT * 

OR THE Y-AXIS FROM BOTTOM TO TOP, THEN OLXY 
MUST BE NEGATIVE. 

FOR LABELING LCG GRIDS, DLXY SPECIFIES THE 
CYCLE LINES TO LABEL. FOR EXAMPLE, OLXY=i. 

MEANS LABEL EACH CYCLE LINE AND DLXY=3. EVERY 
THIRD LINE. 

NCHAR SPECIFIES THE NUMBER OF CHARACTERS TO 
DISPLAY FOR EACH CYCLE OF THE LABEL. 

CHAR CONTAINS THE CHARACTERS TO USE FOR THE LABEL. 

THE USER IS ASSUMED TO KNOW HOW MANY LINES 
WILL BE LABELED SO THAT CHAR WILL CONTAIN 
ENOUGH CHARACTERS FOR ALL LABELS. FOR 
EXAMPLE, IF NCHAR = 3 AND FOUR LINES ARE TO 
BE LABELED, CHAR MUST CONTAIN 12 CHARACTERS. 

TO CREATE INTEGER NUMERIC LABELS IN I FORMAT— 

CALL LABELG(Z,I AX IS,DLXY,0,IFMT) 

IFMT SPECIFIES THE NUMBER OF DIGITS TO DISPLAY. 

TO CREATE REAL NUMERIC LABELS IN F FORMAT- 
CALL LABELG(Z,lAXIS*DLXY,0,FMT) 

FMT SPECIFIES THE FORMAT. IT IS OF THE FORM W.D, 

WHERE W SPECIFIES THE FIELD WIDTH ANO 0 THE 
NUMBER OF DECIMAL PLACES. (D < 10) 

TO CREATE REAL NUMERIC LABELS IN E FORMAT— 

CALL LABELG(Z,IAXIS,DLXY,0,-FMT) 

SPECIAL NONE 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

i. TO SPECIFY THAT A TICK MARK BE ORAWN ABOVE THE X- 
AXIS LABELS OR BESIOE THE Y-AXIS LABELS, GIVE THE 
FOLLOWING MODE SET CALLS: 

CALL SETSMG(Z,102,XSIZE) 

XSIZE SPECIFIES THE LENGTH OF THE TICK 
MARK FOR THE X-AXIS LABEL IN 
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USES 

NOTES 


NORMALIZED OBJECT SPACE. IF XSIZE 
= 0., NO TICK MARK IS DRAWN. 

XSIZE = 0. IS THE DEFAULT VALUE. 

CALL SETSMGIZ,103,YSIZE) 

YSIZE SPECIFIES THE LENGTH OF THE TICK 
MARK FOR THE Y-AXIS LABEL IN 
NORMALIZED OBJECT SPACE. IF YSIZE 
* 0., NO TICK MARK IS DRAWN. 

YSIZE = 0. IS THE DEFAULT VALUE. 

NOTE-ALL MODES DESCRIBED IN SUBROUTINE LINESG ARE 
IN EFFECT WHEN THE TICK MARKS ARE ORAWN. IF XSIZE 
OR YSIZE ARE POSITIVE, THE TICK MARKS ARE DRAWN 
INSIDE THE GRID. IF MINUS, THE TICK MARKS ARE 
DRAWN OUTSIDE THE GRID. 

NOTE-TO DRAW TICK MARKS ALONE WITHOUT A LABEL, 

SET NCHAR=1, AND DEFINE CHARS TO CONTAIN AS MANY 
HOLLERITH BLANKS AS THERE ARE LABELS. 

2. TO SPECIFY THE LOCATIONS AT WHICH TO LABEL, GIVE 
THE FOLLOWING MODE SET CALLS: 

CALL SETSMGIZ,104,XPLACE) 

XPLACE SPECIFIES THE DISTANCE FROM THE 

X-AXIS TO THE LABEL AS A MULTIPLE OF 
CHARACTER HEIGHT. 

XPLACE » 0., LABEL AT Y * 0 MAJOR 

AXIS. (NOTE-THIS MAY CAUSE THE 
LABEL TO FALL INSIOE OF THE 
GRID.) 

XPLACE > 0. < + ), LABEL THE X-AXIS 
A80VE THE GRID. 

XPLACE < 0. (-), LABEL THE X-AXIS 
BELOW THE GRID. 

XPLACE = -1.5 IS THE DEFAULT VALUE. 

CALL S£TSMG(Z»105»YPLACE) 

YPLACE SPECIFIES THE DISTANCE FROM THE 

Y-AXIS TO THE LABEL AS A MULTIPLE OF 
CHARACTER WIDTH. 

YPLACE = 0., LABEL AT X=0 MAJOR 

AXIS. I NOTE—THIS MAY CAUSE THE 
LABEL TO FALL INSIDE OF THE 
GRID.) 

YPLACE > 0. < + ), LABEL THE Y-AXIS ON 
THE RIGHT SIDE OF THE GRID. 
YPLACE < 0. <-), LABEL THE Y-AXIS ON 
THE LEFT SIDE OF THE GRID. 
YPLACE * -1.5 IS THE DEFAULT VALUE. 

3. TO CHANGE THE CHARACTER SIZE OR FONT, GIVE THE MODE 
SET CALLS DESCRIBED IN SUBROUTINE LEGNDG. 

SUBROUTINES SETSMG,MLTPLG,LEGNDG*NUMBRG»ERRZZ 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THE CODING OF THIS SUBROUTINE TAKES ADVANTAGE OF THE FACT 
THAT NON-ZERO FLOATING POINT NUMBERS ARE LARGER THAN 
REASONABLE VALUES FOR INTEGERS BECAUSE THE CHARACTERISTIC OF 
A FLOATING POINT NUMBER IS IN THE LEFT PART OF THE WORD. IF 
THE USER'S MACHINE DOES NOT HAVE THIS FORMAT, THE ROUTINE 
WILL HAVE TO BE RECODED. 
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C****************************$ubrqujin£ TITLEG*************** 1 ****************' 
TITLE A GRID. (TITLEG) 

PURPOSE THIS SUBROUTINE IS USED TO TITLE THE X AND Y AXES AND TO 
TITLE THE GRAPH. IT AUTOMATICALLY CENTERS THE TITLES FOR 
THE USER. THIS SUBROUTINE IS INTENDED TO BE A QUICK, EASY 
METHOD OF TITLING A GRAPH. USERS WHO WANT FULL 
CONTROL OVER THE TITLING OF THEIR GRAPHS SHOULD USE 
SUBROUTINE LEGNDG. 

CALL CALL TITLEGtZ,NX,XCHAR,NY,YCHAR,NT,TCHAR ) 

Z IS THE MODE SET ARRAY. 

NX SPECIFIES THE NUMBER OF CHARACTERS IN THE X-AXIS 
TITLE. IF NX=0, THE X-AXIS IS NOT TITLED. THE 
TITLE WILL BE CENTERED BELOW THE GRID. 

XCHAR CONTAINS THE 'NX* CHARACTERS TO USE FOR THE X- 
AXIS TITLE. IF NX*0, XCHAR SHOULD BE A OUMMY 
ARGUMENT. 

NY SPECIFIES THE NUMBER OF CHARACTERS IN THE Y-AXIS 
TITLE. IF NY=0, THE Y-AXIS IS NOT TITLED. THE 
LINE ORIENTATION WILL BE 90., ANO THE TITLE 
WILL BE VERTICALLY CENTERED TO THE LEFT OF THE 
GRID. 

YCHAR CONTAINS THE 'NY' CHARACTERS TO USE FOR THE Y- 
AXIS TITLE. IF NY*0, YCHAR SHOULO BE A OUMMY 
ARGUMENT. 

NT SPECIFIES THE NUMBER OF CHARACTERS IN THE GRAPH 
TITLE. IF NT*0, THE GRAPH IS NOT TITLED. THE 
GRAPH WILL BE TITLED BELOW THE X-AXIS TITLE AND 
CENTERED ON THE PAGE. 

TCHAR CONTAINS THE 'NT* CHARACTERS TO USE FOR THE GRAPH 
TITLE. IF NT-0, TCHAR SHOULO BE A DUMMY ARGUMENT. 


SPECIAL NONE 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

1. THE AREA AVAILABLE FOR TITLING IS OBTAINED FROM THE 
MODE SET ARRAY. NORMALLY, THESE VALUES ARE STOREO 
IN THE MODE SET ARRAY BE SUBROUTINES GRIDG OR 
LABELG. IF SUBROUTINES GRIDG OR LABELG HAVE NOT 
8EEN CALLED, THE USER MUST SUPPLY THE VALUES 
HIMSELF. THE FOLLOWING MODE SET CALLS WILL 
ACCOMPLISH THIS: 

CALL SETSMGt Z*113,XMIN) 

XMIN SPECIFIES THE MINIMUM X-LOCATION IN 
NORMALIZED OBJECT SPACE OCCUPIEO BY 
THE GRAPH, INCLUDING LABELS. 

CALL SETSMGtZ»114»YMIN) 

YMIN SPECIFIES THE MINIMUM Y-LOCATION IN 
NORMALIZED OBJECT SPACE OCCUPIEO BY 
THE GRAPH, INCLUDING LABELS. 

CALL SETSMGtZ,115,XMAX) 

XMAX SPECIFIES THE MAXIMUM X-LOCATION IN 
NORMALIZED OBJECT SPACE OCCUPIED BY 
THE GRAPH, INCLUDING LABELS. 

CALL SETSMG(Z,116,YMAX) 

YMAX SPECIFIES THE MAXIMUM Y-LOCATION IN 
NORMALIZED OBJECT SPACE OCCUPIED BY 
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USES 

NOTES 


THE GRAPH, INCLUDING LABELS. 

2. TO SPECIFY THE LOCATIONS AT WHICH TO TITLE, GIVE 
THE FOLLOWING MODE SET CALLS: 

CALL SETSMG(Z,104*XPLACE) 

XPLACE SPECIFIES THE DISTANCE FROM THE 
GRID TO THE X-AXIS TITLE AS A 
MULTIPLE OF CHARACTER HEIGHT. IT 
ALSO SPECIFIES THE DISTANCE FROM THE 
X-AXIS TITLE TO THE GRAPH TITLE. 
XPLACE > 0. <+>, TITLE ABOVE THE 
GRID. 

XPLACE < 0. (-), TITLE BELOW THE 
GRID. 

XPLACE = -1.5 IS THE DEFAULT VALUE. 

CALL SETSMG(Z»l05,YPLACE) 

YPLACE SPECIFIES THE DISTANCE FROM THE 

Y-AXIS TO THE TITLE AS A MULTIPLE OF 
CHARACTER WIDTH. 

YPLACE > 0. <+), TITLE ON THE RIGHT 
SIDE OF THE GRIO. 

YPLACE < 0. (-), TITLE ON THE LEFT 
SIDE OF THE GRID. 

YPLACE = -1.5 IS THE DEFAULT VALUE. 

3. TO CHANGE THE CHARACTER SIZE OR FONT, GIVE THE MODE 
SET CALLS DESCRIBED IN SUBROUTINE LEGNDG. 

SUBROUTINES SETSMG,LEGNDG,ERRZZ 

THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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CALL TITLEG(Z,NX,XCHAR,NY,YCHAR,NT,TCHAR) 

NT,TCHAR 



GRAPH TITLE 
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C****************************SUBROUTINE SETUPG******** 1 **************** 1 ******** 
COMPUTE APPROPRIATE ARGUMENTS FOR THE GRID ROUTINES- (SETUPG) 

PURPOSE THIS SUBROUTINE IS USED TO COMPUTE VALUES TO BE SUBSEQUENTLY 
INCLUDED IN CALLS TO THE GRIDG AND LABELG SUBROUTINES. IT 
ALSO GIVES THE USER THE OPTION OF HAVING HIS SUBJECT AND 
OBJECT SPACE ADJUSTED FOR A MORE AESTHETIC GRAPH. IF THE 
OBJECT SPACE IS AOJUSTED* THE SIZE OF THE DISPLAY SURFACE IS 
REDUCED SO THAT A MARGIN IS LEFT AROUND THE GRID. THIS ALSO 
CAUSES THE SCALING FACTORS TO BE RECOMPUTED SO THAT ALL 
SUBSEQUENT CALLS TO GRAPHIC OUTPUT SUBROUTINES WILL RESULT 
IN THE DATA BEING SCALED INTO THE AREA OF THE GRID. IF, 

AFTER CALLING SETUPG, THE USER WANTS TO DRAW OUTSIDE OF THE 
GRID, HE MUST BE CAREFUL TO EITHER CALL OBJCTG TO RESET THE 
DISPLAY SURFACE, OR USE THE SPECIAL MODE SET INDICATING 
ABSOLUTE RASTER UNITS. 

IN MANY INSTANCES, PARTICULARLY WHERE THE USER MUST COMPUTE 
THE RANGE OF HIS DATA, IT IS VERY DIFFICULT TO DETERMINE 
8EFOREHAND JUST WHAT THE ARGUMENTS FOR THE GRID ROUTINES 
SHOULD BE TO DRAW AN AESTHETICALLY PLEASING GRAPH. THIS 
SUBROUTINE LOOKS AT THE RANGE OF THE USER'S DATA AND 
COMPUTES APPROPRIATE ARGUMENTS FOR THE GRID ROUTINES. 

THE USER MUST CALL SUBROUTINE SUBJEG FIRST TO ESTABLISH HIS 
SUBJECT SPACE SO THAT SETUPG WILL KNOW THE LIMITS OF HIS 
DATA. THE USER'S SUBJECT SPACE MUST NOT BE NEGATIVE. THAT 
IS, THE X-AXIS MUST INCREASE FROM LEFT TO RIGHT, AND THE 
Y-AXIS FROM BOTTOM TO TOP. SETUPG WORKS FOR BOTH LINEAR AND 
NONLINEAR GRIDS. 

CALL CALL SETUPG!Z,MODE,DX,DY,IXTH,JYTH,DLX,DLY,XFMT,YFMTI 

Z IS THE MODE SET ARRAY. 

MODE SPECIFIES WHETHER THE USER'S SUBJECT SPACE AND THE 
GRID MARGINS ARE TO BE ADJUSTED. 

MCDE=0, DON'T DO ANY ADJUSTMENT. 

I* ADJUST BOTH THE SUBJECT AND OBJECT SPACE. 

2, ADJUST ONLY THE SUBJECT SPACE. 

3, ADJUST ONLY THE OBJECT SPACE. 

NCTE-THE USER MUST CALL SUBROUTINE SUBJEG WITH THE 
MINIMUM AND MAXIMUM LIMITS OF HIS DATA BEFORE 
CALLING SETUPG. 

DX,DY WILL CONTAIN THE X,Y GRID INTERVALS TO USE IN 
SUBSEQUENT CALLS TO SUBROUTINE GRIDG. 

IXTH,JYTH WILL CONTAIN NUMBERS SPECIFYING THE X AND Y 
GRID LINES TO EMPHASIZE. THESE VALUES ARE ALSO 
USED IN CALLS TO SUBROUTINE GRIDG. 

DLX,DLY WILL CONTAIN THE X AND Y INTERVALS BETWEEN THE 
AXES LABELS. THESE VALUES ARE USED IN SUBSEQUENT 
CALLS TO SUBROUTINE LABELG. 

XFMT,YFMT WILL CONTAIN THE NUMERIC FORMATS OF THE 

LABELS. THESE VALUES ARE ALSO USED IN CALLS TO 
SUBROUTINE LABELG. 

SPECIAL NONE 

MODS THE FOLLOWING MODIFICATIONS CAN BE MADE TO THE SUBROUTINE 

WITH MODE SETS: 

I. TO FORCE SETUPG TO COMPUTE VALUES WHICH WILL RESULT 
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IN A SQUARE GRID, GIVE THE FOLLOWING MODE SET 
CALLS 

CALL SETSMG(Z,110,1.) 

TO RESET THE MODE TO ITS DEFAULT VALUE SO THAT A 
SQUARE GRID IS NOT MANDATORY, GIVE THE FOLLOWING 
MODE SET CALL: 

CALL SETSMG(Z,110,0.) 

2. TO ADJUST THE DENSITY OF THE GRID LINES, GIVE THE 
FOLLOWING MODE SET CALLSs 

CALL SETSMGIZ,111,XDEN) 

XDEN SPECIFIES THE DENSITY OF THE X-AXIS 
(VERTICAL) GRID INTERVAL LINES. THE 
DENSITY IS EXPRESSED AS A MINIMUM 
DISTANCE BETWEEN GRIO LINES IN 
NORMALIZED OBJECT SPACE. 

XDEN = .01009 IS THE DEFAULT VALUE. 

(ABOUT ONE CHARACTER WIDTH) 

CALL SETSMGIZ,112,YDEN) 

YDEN SPECIFIES THE DENSITY OF THE Y-AXIS 
(HORIZONTAL) GRID INTERVAL LINES. 

THE DENSITY IS EXPRESSED AS A 
MINIMUM DISTANCE BETWEEN GRID LINES 
NORMALIZED OBJECT SPACE. 

YDEN « .016607 IS THE DEFAULT VALUE. 

(ABOUT ONE CHARACTER HEIGHT) 

3. TO RESET THE GRID MARGINS, GIVE ANY OF THE 
FOLLOWING CALLS: 

CALL SETSMG(Z,106,XLEFT) 

XLEFT IS THE AMOUNT OF LEFT MARGIN, IN 
NORMALIZED OBJECT SPACE, TO LEAVE. 
XLEFT » .15 IS THE DEFAULT VALUE. 

CALL SETSMGIZ,107,RIGHT) 

RIGHT IS THE AMOUNT OF RIGHT MARGIN, IN 
NORMALIZED OBJECT SPACE* TO LEAVE. 
RIGHT = .15 IS THE DEFAULT VALUE. 

CALL SETSMGIZ,108,BOTTOM) 

BOTTOM IS THE AMOUNT OF BOTTOM MARGIN, IN 
NORMALIZED OBJECT SPACE, TO LEAVE. 
BOTTOM » .15 IS THE DEFAULT VALUE. 

CALL SETSMG(Z,109,T0P) 

TOP IS THE AMOUNT OF TOP MARGIN, IN 

NORMALIZED OBJECT SPACE, TO LEAVE. 
TOP » .15 IS THE DEFAULT VALUE. 

USES SUBROUTINES SUBJEG,OBJCTG,ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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C****************************SUBROUTINE GRAPHG******************************** 
CONSTRUCT A COMPLETE GRAPH. (GRAPHG) 

PURPOSE THIS SUBROUTINE IS USED TO CONSTRUCT AN ENTIRE GRAPH, 

COMPLETE WITH GRID, LABELS, TITLES, AND PLOTTED DATA. IT 
REQUIRES ONLY A MINIMUM AMOUNT OF INFORMATION FROM THE USER, 

AND MAKES ALL THE DECISIONS NEEDED TO CREATE THE GRAPH. 

BOTH THE SUBJECT AND OBJECT SPACE WILL NORMALLY BE RESET BY 
A CALL TO THIS SUBROUTINE. THIS ALLOWS SUBSEQUENT CALLS TO 
BE MADE TO POINTG OR LINESG TO PLOT MORE THAN ONE VARIABLE 
ON THE GRAPH. THE SUBJECT SPACE WILL NOT BE RESET IF *NO*, 

THE NUMBER OF POINTS TO PLOT, IS ZERO. THE OBJECT SPACE 
WILL NOT BE RESET IF THE GRID MARGINS ARE SET TO ZERO IN THE 
MODE SET ARRAY. 

CALL CALL GRAPHG(Z,NO,X*Y,NX»XCHAR,NY,YCHAR,NT,TCHAR) 

Z IS THE MODE SET ARRAY. 

NO SPECIFIES THE NUMBER OF X,Y COORDINATES TO PLOT. 

IF NO * 0, ONLY THE GRAPH IS ORAWN AND NO POINTS 
ARE PLOTTED. THIS ALSO PREVENTS THE SUBJECT SPACE 
FROM BEING RESET. NO*i IS NOT LEGAL. 

X»Y ARE ARRAYS OF *NO* X AND Y COORDINATES TO PLOT. 

IF N0=0, X AND Y SHOULD BE DUMMY ARGUMENTS. 

NX SPECIFIES THE NUMBER OF CHARACTERS IN THE X-AXIS 
TITLE. IF NX=0, THE X-AXIS IS NOT TITLED. THE 
TITLE WILL BE CENTERED BELOW THE GRID. 

XCHAR CONTAINS THE »NX* CHARACTERS TO USE FOR THE X- 
AXIS TITLE. IF NX=0, XCHAR SHOULO BE A DUMMY 
ARGUMENT. 

NY SPECIFIES THE NUMBER OF CHARACTERS IN THE Y-AXIS 
TITLE. IF NY=0, THE Y-AXIS IS NOT TITLED. THE 
LINE ORIENTATION WILL BE 90., AND THE TITLE 
WILL BE VERTICALLY CENTERED TO THE LEFT OF THE 
GRID. 

YCHAR CONTAINS THE * NY* CHARACTERS TO USE FOR THE Y- 
AXIS TITLE. IF NY=0, YCHAR SHOULD BE A DUMMY 
ARGUMENT. 

NT SPECIFIES THE NUMBER OF CHARACTERS IN THE GRAPH 
TITLE. IF NT=0, THE GRAPH IS NOT TITLED. THE 
GRAPH WILL BE TITLED BELOW THE X-AXIS TITLE AND 
CENTERED ON THE PAGE. 

TCHAR CONTAINS THE 'NT* CHARACTERS TO USE FOR THE GRAPH 
TITLE. IF NT=0, TCHAR SHOULD BE A DUMMY ARGUMENT. 

SPECIAL NONE 

MODS ALL THE MODE SETS DESCRIBED IN SETUPG,GRAPHG,LABELG,TITLEG, 

AND POINTG ARE ALSO APPLICABLE TO THIS SUBROUTINE. 

USES SUBROUTINES SUBJEG,SETUPG,GRIDG,LABELG,TITLEG,POINTG,ERRZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

THE CALL TO GRAPHG RESETS THE GRID MARGINS IN THE MODE SET 
ARRAY TO ZERO. GRAPHG RESETS THE OBJECT SPACE BASED UPON 
THE CURRENT OBJECT SPACE AND THE AMOUNT OF GRID MARGIN 
SPECIFIED IN THE MODE SET ARRAY. IF GRAPHG DID NOT SET THE 
GRID MARGINS TO ZERO, SUBSEQUENT CALLS TO IT WOULD CONTINUE 
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TO DECREASE THE SIZE OF THE OBJECT SPACE* RESULTING IN 
SMALLER AND SMALLER GRAPHS. 

GRAPHG MAKES NO CALL TO PAGEG TO ADVANCE THE FRAME. THIS 
CALL IS LEFT TO THE USER SO THAT HE CAN ADO TO THE GRAPH 
WITH SUBSEQUENT CALLS. 
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CONVERSION SUBROUTINES 


Two conversion routines are provided in IGS, one to convert character strings to 
numeric, and one to convert numeric data to a character string. 
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C****************************SU0RGUTjtyg C0 NVTG******************************jM 
CONVERT CHARACTERS TO NUMERIC. (CONVTG) 

PURPOSE THIS SUBROUTINE CONVERTS A CHARACTER STRING TO A REAL OR 
INTEGER NUM8ER. 

CALL CALL CONVTGIZ•IFMT,IW,IN,OUT) 

Z IS THE MODE SET ARRAY. 

IFMT SPECIFIES THE CONVERSION TO BE DONE. 

IFMT = 1* CONVERT TO INTEGER. 

2. CONVERT TO REAL. 

3, CONVERT TO REAL IF A DECIMAL POINT OR 
•E* IS ENCOUNTERED. OTHERWISE CONVERT 
TO INTEGER. 

IW SPECIFIES THE NUMBER OF CHARACTERS IN THE INPUT 
STRING. 

IN IS THE ADDRESS OF THE CHARACTER STRING TO CONVERT. 

OUT WILL CONTAIN THE CONVERTED INTEGER OR REAL NUMBER. 

SPECIAL NONE 

MOOS NONE 

USES SUBROUTINE GETCZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 
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C**«**«**********************SUBRGUTINE FMTSG********************* 1 *********** 
CONVERT NUMERIC DATA TO CHARACTERS. (FMTSG) 

PURPOSE THIS SUBROUTINE IS CALLED TO CONVERT A NUMBER, EITHER REAL 
OR INTEGER, INTO A CHARACTER STRING. 

CALL CALL FMTSGIZ,IFMT,IW,ID,VALUE,CHARS) 

Z IS THE MODE SET ARRAY. 

IFMT SPECIFIES THE TYPE OF NUMBER TO CONVERT. 

IFMT=L» CONVERT AN INTEGER NUMBER TO I FORMAT. 

2, CONVERT A REAL NUMBER TO F FORMAT. 

3, CONVERT A REAL NUMBER TO E FORMAT. 

IN SPECIFIES THE FIELD WIDTH OF THE CONVERTED NUMBER. 

ID SPECIFIES THE NUMBER OF DECIMAL PLACES. <ID=0 IF 

IFMT=l> 

VALUE IS THE NUMBER TO CONVERT. IT MAY BE EITHER REAL 
OR INTEGER, DEPENDING UPON WHAT IFMT IS SET TO. 

CHARS WILL CONTAIN THE CHARACTER STRING UPON RETURN. 

IT MUST BE AN ARRAY LARGE ENOUGH TO CONTAIN »IW» 
CHARACTERS. 

SPECIAL NONE 

MODS TO CONVERT TO SCIENTIFIC NOTATION RATHER THAN E FORMAT, GIVE 

THE FOLLOWING MODE SET CALL: 

CALL SETSMGIZ,85,1.) 

TO RESET IT TO THE DEFAULT E FORMAT, GIVE THE FOLLOWING 
CALL: 

CALL SETSMGIZ,85,0.} 

USES SUBROUTINES IFMZZ,PUTCZZ,GETCZZ 

NOTES THIS SUBROUTINE IS WRITTEN IN FORTRAN IV. 

IF THE NUMBER CANNOT BE CONVERTED PROPERLY, CHARS WILL 
CONTAIN ASTERISKS (*} ON RETURN. 
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APPENDIX A. 


SAMPLE PROGRAM 


: DIMENSION THE MODE SET ARRAY. 

; SINCE THIS IS A SAMPLE PROGRAM, THERE WILL BE NO GREAT SIGNIFICANCE 
; IN THE DATA THAT IS PLOTTED. 

DIMENSION Z(200) 

DIMENSION X(L00),Y(100) 

: INITIALIZE IGS WITH A CALL TO MODESG. 

CALL MODESG(Z,0) 

; SET FOR 8 1/2 X 11 OUTPUT. 

CALL SETSMGt Z,90,2.) 

; COMPUTE SOME POINTS TO PLOT. 

DO 100 I * 1,100 

xm = (i—i) *10 

100 Y(I) = <l-l)*10 

; THE DEFAULT PLOTTING SYMBOL IS A POINT. I OON'T WANT A POINT FOR MY 
; PLOT SYMBOL SO I WILL CHANGE IT WITH A MODE SET CALL. 

CALL SETSMGtZ,84,1H+) 

; NOW I WILL PLOT + »S INSTEAD OF POINTS. 

; I WILL NOW CALL ON GRAPHG TO DRAW, LABEL, AND TITLE THE GRAPH, AND 
; PLOT 1024 POINTS OF X,Y COORDINATES. 

CALL GRAPHG(Z, 100,X,Y,14.14HTIME—IN HOURS,18,18HDISTANCE—IN MIL 
1ES,16,16HTIME VS DISTANCE) 

; COMPUTE SOME MORE POINTS TO PLOT ON THE SAME GRAPH. 

DO 200 I = 1,100 
XU) = (100-I)*10 
200 Y(I) * (I-l)*10 

: I WANT TO LABEL THE TOP AND RIGHT SIDE OF THE GRID. I MUST MAKE THE 
; APPROPRIATE MODE SETS FOR THE LABEL POSITION. 

CALL SETSMG(Z,104,1.) 

CALL SETSMGIZ,105,1.) 

; I WILL NOW LABEL THE X-AXIS. 

CALL LABELGIZ,0,200.,0,4) 

; AND LIKEWISE FOR THE Y-AXIS. 

CALL LABELGiZ,1,100.,0,4) 

; THEN TO ADD SOME TITLES. 

CALL TITLEG< Z,21»21HDISTANCE—IN FURLONGS,19,19HTIME—IN FORTNIGHT 
IS,0,0) 

; I SHOULD CHANGE THE PLOT SYMBOL SO I WON'T CONFUSE MY DATA. 

CALL SETSMG(Z,84,1HX) 

; AND THEN PLOT THE DATA. 

CALL P0INTG(Z*100,X,Y) 

; NOW I WILL ADVANCE THE FRAME AND GET ONE COPY. 

CALL PAGEG(Z,0,1,1) 

: I AM DONE. I MUST CALL EXITG TO TERMINATE THE GRAPHIC OUTPUT. 

CALL EXITG(Z) 

CALL EXIT 
END 
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C 

C APPENDIX B. 

C 

C IGS ERROR CODES 

C 

C THIS TABLE DESCRIBES THE MEANING OF EACH POSSIBLE IGS ERROR 

C MESSAGE. WHEN AN ERROR OCCURS* SUBROUTINE ERRZZ IS CALLED TO PRINT 
C OUT AN ERROR MESSAGE. THE ERROR MESSAGE WILL READ AS FOLLOWS: 

C BAD BAO BAO* ERROR NO. *NO« = VALUE!I> VALUEIF) VALUE!A) FRAME XX 
C CONTROL IS RETURNED AFTER THE MESSAGE IS PRINTED—THE JOB IS NOT 
C TERMINATED. 

C 


c 

r 

NO 

SUBROUTINE 

VALUE 

DESCRIPTION 

i 

c 

1 

GETSMG 

NO 

ILLEGAL MODE SET NUMBER IN CALL. 

c 

2 

LEGNDG 

N 

ILLEGAL CHARACTER COUNT IN CALL. 

c 

3 

LINESG 

NO 

ILLEGAL NUMBER IN CALL. 

c 

A 

MODESG 

I TAPE 

ILLEGAL TAPE NO. IN CALL. 

c 

5 

NUMBRG 

FMT 

ILLEGAL FORMAT IN CALL. 

c 

6 

OBJCTG 

— 

MAX X OR Y LE MIN X OR Y IN CALL. 

c 

7 

PAGEG 

- 

ILLEGAL ARGUMENTS IN CALL. 

c 

8 

POINTG 

N 

ILLEGAL NUMBER IN CALL. 

c 

9 

SEGMTG 

N 

ILLEGAL NUMBER IN CALL. 

c 

10 

TA8SG 

N 

ILLEGAL NUMBER IN CALL. 

c 

11 

MLTPLG 

NLINES 

ILLEGAL NUMBER IN CALL. 

c 

12 

GRIDG 

- 

GRID TOO SMALL TO DRAW. 

c 

13 

LABELG 

• 

ILLEGAL FORMAT IN CALL. 

c 

14 

TITLEG 


ILLEGAL ARGUMENTS IN CALL. 

c 

15 

SETUPG 

- 

ILLEGAL ARGUMENTS IN CALL. 

c 

16 

SUBJEG 

— 

MAX X OR Y EQ MIN X OR Y. 

c 

17 

LABELG 

- 

ILLEGAL ARGUMENTS IN CALL. 

c 

18 

LABELG 

** 

GRID TOO SMALL TO LABEL. 

c 

19 

LABELG 

— 

ZERO SUBJECT SPACE. 

c 

20 

GRIDG 

- 

ILLEGAL ARGUMENTS IN CALL. 

c 

21 

SETUPG 

— 

NOT ENOUGH ROOM TO DRAW A GRID. 

c 

22 

SETUPG 

— 

DENSITY LE 0. 

c 

23 

SETSMG 

N 

ILLEGAL MODE SET NO. IN CALL. 

c 

24 

SETUPG 

- 

GRID WILL NOT FIT ON PAGE. 

c 

25 

TEXTG 

N 

ILLEGAL CHARACTER COUNT IN CALL. 

c 

26 

LABELG 

- 

LABELS WILL NOT FIT ON PAGE. 

c 

27 

PACKZZ 

- 

NO INITIALIZATION CALL TO MODESG. 

c 

28 

GRAPHG 

N 

ILLEGAL ARGUMENT IN CALL. 

c 

29 

SUBJEG 

— 

MINUS VALUE FOR LOG GRID. 

c 

30 

SETUPG 

— 

TOO MANY CYCLES IN LOG GRID. 

c 

31 

VECTZZ 

- 

NO VECTOR CHARACTER FONT INITIALIZED. 

c 

32 

SCALZZ 

X 

BAO X-COOROINATE. 

c 

33 

SCALZZ 

Y 

BAO Y—COORDINATE. 

c 

34 

VECTZZ 

CHAR# 

CHARACTER NOT IN FONT. 

c 

35 

TITLEG 

- 

NOT ENOUGH ROOM TO TITLE GRID. 

c 

36 

VECTZZ 

CHAR 

REQUEST FOR NON-EXISTENT VECTOR CHAR CASE. 
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APPENDIX C. 

SUMMARY OF S-C 4060 GRAPHIC FEATURES 
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Summary of S—C 4060 graphic features 

Line widths Normal line density Light line density 

Li ght - - 

Normal - - 

Medium . . . ■ - 

Heavy 1 


Line dash size 
1 . 

2 . 

3. 

4. 


CHARACTRON character orientation 


NORMAL 



CHARACTRON character size 


Sma 1 1 
Normal 
Medium 
Lar ge 


ABCDEPGH1JKLMNOPQRSTUVWXYZabcdef ghij 

ABCDEFGHIJKLMNOPQRSTUVWXYZabcde f ghi j 
ABCDEFGHIJKLMNOPQRST UVWXYZa bcdef ghi j 
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghij 


CHARACTRON plotting point size 

Small 
Normal 
Medium 
Lar ge 


♦ ♦ ♦ 

♦ + + 

+ + + 

+ + + 
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Appendix D 

SCORS COMPATIBILITY 

Although the design of IGS is considerably different from that of SCORS, there is a 
degree of compatibility. A few of the lowest level SCORS subroutines have been 
rewritten to produce S-C 4060 Meta-language input. Although the S-C 4060 can 
process the SCORS input directly, there are two reasons why an installation might 
not want this. First, there is a marginal benefit in making the operation of the 
S-C 4060 easier by having only one type of input. More important, a large SCORS 
program need not be rewritten in IGS to access the full S-C 4060 features. IGS and 
SCORS calls can be intermixed to modify the output of the SCORS program. Also, 
separate parts of the program can be written in IGS, and then added to an existing 
SCORS program. 

In this sense the IGS System is "compatible" with the S-C 4020 SCORS package — 
with some elaboration. Basically, it means that existing programs calling on the 
SCORS subroutines to produce S-C 4020 output will, under IGS, produce comparable 
meta-language output for the S-C 4060. If the SCORS user wants to use any of the 
IGS subroutines directly to take advantage of the S-C 4060 hardware features, he 
must reference the SCORS mode set array in his calls to IGS. The SCORS mode 
set array is kept in labeled common and is named "AMODES". 

For the purpose of IGS compatibility, SCORS will be defined exactly as detailed in 
the "Programmers’ Reference Manual S-C 4020 Computer Recorder", Document 
No. 9500056, October 1964, Revised August, 1965, Stromberg Datagraphics Inc. 

It should be noted that IGS cannot protect the programmer who took advantage of his 
knowledge of the inner workings of the lower level SCORS subroutines to accomplish 
things not described in the above document. 
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APPENDIX E 

S-C 4060 CHARACTRON CHARACTER SET 
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APPENOIX F. 


THE FOLLOWING SPECIAL CONTROL CHARACTERS MAY BE TYPED WITHIN A 
CHARACTER STRING TO OBTAIN THE FUNCTIONS DESCRIBED. THE LIST IS 
EXPANDABLE AND NEW FUNCTIONS WILL BE ADDED AS THE NEED ARISES. 

CHARACTER FUNCTION 


$N 


ST 

SE 

$U 

$L 

SS 

SC 

SB 

SP 

s+ 

s- 


NULL-THE SN WILL BE IGNORED. THE NULL IS USEFUL IF 
THE USER WANTS TO ACTUALLY TYPE ANY OF THE SPECIAL 
CHARACTERS. FOR EXAMPLE, IF THE USER WANTED TO TYPE 
THE CHARACTERS *SN', HE MUST SEPERATE THEM WITH THE 
NULL AS FOLLOWS: 'SINN'. 

TAB-CAUSES A TAB TO THE NEXT TAB POSITION, OR TO THE 
RIGHT MARGIN IF THERE ARE NO MORE TABS. 

EJECT-SAME AS A CARRIAGE RETURN ON A TYPEWRITER. IT 
EJECTS THE LINE TO THE LEFT MARGIN. 

UPPER-SET CHARACTER CASE TO UPPER. 

LOWER-SET CHARACTER CASE TO LOWER. 

SPECIAL-SET CHARACTER CASE TO SPECIAL. 

UPPER CASE NEXT CHARACTER ONLY. (CAPITALIZE) 

BACKSPACE 

NEW PAGE 

SUPERSCRIPT- SHIFT LINE UP 1/2 SPACE. 

SUBSCRIPT-SHIFT LINE DOWN 1/2 SPACE. 
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Appendix G 


USING VECTOR CHARACTERS 


By means of vector characters, one may "type" characters which do not exist in the 
CHARACTRON set (e.g., cyrillic, hebrew or Chinese) or whose style is different 
(e.g., english script). One may also alter vector character size or orientation without 
the limitations which exist for CHARACTRON characters, and one may skew vector 
characters and alter their width or height separately; operations that do not exist 
with CHARACTRON characters (see figure 4). 

Two things are required to produce vector characters: subroutines to produce and 
manipulate them, and the specification for a font in the form required by the sub¬ 
routines. The standard IGS package includes all vector character subroutines and 
one font (named FONT 2). To prepare other fonts see Ref. 6. 

The next step, given a vector character font, is to use it. Proceed as follows: 

1) Indicate that the font is defined outside this program. 

Example: EXTERNAL FNAME 

2) Initialize the font 

Example: CALL VECIG (Z, FNAME), where 

Z is the mode array 

FNAME is the name of an array containing the font 

3) Set the character font mode for vector characters. 

Example: Call SETSMG (Z , 51, 1.) 

4) Use LEGNDG and TEXTG to output vector characters. 

Note that LEGNDG and TEXTG output either CHARACTRON or vector characters 
depending on the setting of mode 51. To return to CHARACTRON characters, reset 
mode 51 to zero. To change vector character fonts, simply initialize another font to 
designate it as the font currently in use (see sample program in Appendix H). 
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APPENDIX H 

TWO SAMPLE VECTOR CHARACTER SUBROUTINES: 

1) INITIALIZING AND SWITCHING FONTS 

2) USING VECTOR CHARACTERS. 


SAMPLE ROUTINE NO. I FOR VECTOR CHARACTERS. 

THIS ROUTINE ILLUSTRATES HOW TO INITIALIZE A VECTOR CHARACTER FONT, 
HOW TO SWITCH BETWEEN CHARACTRON CHARACTERS AND VECTOR CHARACTERS, 
AND HOW TO SWITCH FROM ONE VECTOR CHARACTER FONT TO ANOTHER. 


DIMENSION Z(200) 

EXTERNAL THE VECTOR CHARACTER FONT NAMES. 

EXTERNAL FONT2,FANCY 
C INITIALIZE IGS 

CALL MODESG(Z,0) 

C SET FOR NEW PAGE ON OVERFLOW 
CALL SETSMG(Z«44,l.) 

C LABEL THE PAGE WITH CHARACTRON CHARACTERS 

CALL LEGNDG(Z,C.,307i.,31,3IH SSLWAPPING VECTOR CHARACTERSSU) 

C INITIALIZE VECTOR CHARACTER FONT 'F0NT2* 

CALL VECIG(Z »FCNT2) 

C CHANGE TO USING VECTOR CHARACTERS 
CALL SET SMG(Z,5l,I.) 

C TYPE WITH VECTOR CHARACTER FONT 'F0NT2' 

CALL LEGNOG(Z»3l.»3C0G.,32,32HV$LECT0R CHARACTERS FROM $UF0NT2) 
C NOTE THAT I MUST START HALF A CHARACTER WIDTH IN FROM THE MARGIN 
C 

C INSTEAD OF CALCULATING HALF A CHARACTER WIDTH, I CAN LET 
C IGS DO IT FOR ME BY CALLING FOR A LINE EJECT(SE) 

CALL LEGNDG(Z,0.,3000.,20,20H$ELINE EJECTED F0NT2) 

C CHANGE VECTOR CHARACTER FONT TO 'FANCY' 

CALL VECIGIZ,FANCY) 

C TYPE SOME VECTOR CHARACTERS FROM 'FANCY' STARTING WHERE WE LEFT OFF 
CALL TEXTG(Z»22»22HFANCY FONT STARTS HERE) 

C MORE FANCY FONT 

CALL LEGNDG(Zt0.,2000.,17»17H$EM0RE FANCY FONT) 

C BACK TO CHARACTRON 

CALL SETSMG(Z,51,0.) 

CALL TEXTG(Z,20,20H»EBACK TO CHARACTRON) 

C THRU 

CALL EXITG(Z) 

CALL EXIT 
END 
C 
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APPEND I X 

SAMPLE ROUTINE NO. 2 FOR 
THIS ROUTINE ILLUSTRATES HOW TO 


(CONTINUED) 

VECTOR CHARACTERS. 

USE VECTOR CHARACTERS. 


DIMENSION Z(2CO) 

C EXTERNAL THE VECTOR CHARACTER FONT NAME. 

EXTERNAL F0NT2 
C INITIALIZE IGS 

CALL M0DESG(Z,0) 

C SET FOR NEW PAGE ON OVERFLOW 
CALL SETSMG(Z,44,1.) 

C LABEL THE PAGE WITH CHARACTRON CHARACTERS 

CALL LEGNDG(Z,0.,3071.*28,28H UtLSING VECTOR CHARACTERStU) 
C INITIALIZE VECTOR CHARACTER FONT »F0NT2» 

CALL VECIG(Z*FONT2) 

C CHANGE TO USING VECTOR CHARACTERS 
CALL SETSMG(Z,51,1.) 

C CHANGE SIZE TO 2.7 TIMES NORMAL 
CALL SETSMG(Z*4!>,2.7) 

CALL TEXTG(Z»15*15H$ELARGE FONT2JE) 

C RETURN SIZE TO NORMAL 

CALL SETSMGIZ,45»l.) 

C MAKE CHARACTERS 2 TIMES NORMAL WIDTH 
C GET CURRENT WIDTH 

CALL GETSMG(Z,42,V) 

V2 * 2.* V 

C SET WIDTH AND TYPE MESSAGE 
CALL SETSMG(Z,42 *V2) 

CALL TEXTG(Z*12»12H$ETW0 WIDE$E) 

C RETURN WIDTH TO NORMAL 
CALL SETSMG(Z*42*V) 

C MAKE HEIGHT 3 TIMES NORMAL 
C GET CURRENT HEIGHT 

CALL GETSMGIZ*43*V) 

V3 * 3.* V 

C SET NEW HEIGHT ANO TYPE MESSAGE 
CALL SETSMG! Z *43*V3) 

CALL TEXTG(Z»14*14H$ETHREE HIGH$E) 

C RETURN HEIGHT TO NORMAL 
CALL SETSMG(Z,43,V) 

C ROTATE THE CHARACTERS 29 DEGREES CLOCKWISE. 

CALL SETSMG!Z,46,-29.) 

CALL TEXTG(Z*20,20H$EROTATE0 29 DEGREES) 

C RESET ANGLE 

CALL SETSMG(Z*46*0.) 

C SKEW CHARACTERS 30 OEGREES TO THE RIGHT (CLOCKWISE) 

CALL SETSMG(Z,131,-30.) 

CALL TEXTG(Z,23»23H$ESKEW 30 DEGREES RIGHT) 

C THRU 

CALL EXITG(Z) 

CALL EXIT 
ENO 
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C APPENDIX 

C 

C TWO SAMPLE VECTOR CHARACTER SUBROUTINES 
C 1 INITIALIZING AND SWITCHING FONTS 

C 2 USING VECTOR CHARACTERS. 

C 

C 

c 

c SAMPLE ROUTINE NO. I FOR VECTOR CHARACTERS. 

C 

c THIS ROUTINE ILLUSTRATES HOW TO INITIALIZE A VECTOR CHARACTER FONT, 
C HOW TO SWITCH BETWEEN CHARACTRON CHARACTERS AND VECTOR CHARACTERS, 
C AND HOW TO SWITCH FROM ONE VECTOR CHARACTER FONT TO ANOTHER. 

C 

c 

DIMENSION Z 2C0 
C 

C EXTERNAL THE VECTOR CHARACTER FONT NAMES. 

EXTERNAL FONT2,FANCY 
C INITIALIZE IGS 

CALL MODESG Z, 0 

C SET FOR NEW PAGE ON OVERFLOW 
CALL SET SMG Z,44,l. 

C LABEL THE PAGE WITH CHARACTRON CHARACTERS 

CALL LEGNDG Z,0., 3071., 3 1,3IH SSLWAPPING VECTOR CHARACTERS SU 
C INITIALIZE VECTOR CHARACTER FONT :F0NT2: 

CALL VECIG Z,FONT2 
C CHANGE TO USING VECTOR CHARACTERS 
CALL SET SMG Z,51,I. 

C TYPE WITH VECTOR CHARACTER FONT :F0NT2: 

CALL LEGNDG Z,31.,3000.,32,32HVSLECTOR CHARACTERS FROM $UF0NT2 
C NOTE THAT I MUST START HALF A CHARACTER WIDTH IN FROM THE MARGIN 
C 

C INSTEAD OF CALCULATING HALF A CHARACTER WIDTH, l CAN LET 
C IGS DC IT FOR ME BY CALLING FOR A LINE EJECT $E 

CALL LEGNDG Z,0.,3000.,20,20HSELlNE EJECTED F0NT2 
C CHANGE VECTOR CHARACTER FONT TO -.FANCY: 

CALL VECIG Z,FANCY 

C TYPE SOME VECTOR CHARACTERS FROM :FANCY: STARTING WHERE WE LEFT OFF 
CALL TEXTG Z,22,22HFANCY FONT STARTS HERE 
C MORE FANCY FONT 

CALL LEGNDG Z,0.,2C00.,I 7,I7H$EMCRE FANCY FONT 
C BACK TO CHARACTRON 

CALL SETSMG Z,5L,0. 

CALL TEXTG Z,20,20H$EBACK TO CHARACTRON 

C THRU 

CALL EXITG Z 
CALL EXIT 
END 
C 
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C APPENDIX CONTINUED 

r* 

C SAMPLt ROUTINE NO. 2 FCR VECTOR CHARACTERS. 

C 

C THIS ROUTINE ILLUSTRATES HOW TO USE VECTOR CHARACTERS. 

C 

c 

DIMENSION Z 200 

C EXTERNAL THE VECTOR CHARACTER FONT NAME. 

EXTERNAL FONT2 
C INITIALIZE IGS 

CALL MODESG Z.O 
C SET FOR NEW PAGE ON OVERFLOW 
CALL SETSMG Z,44,1. 

C LABEL THE PAGE WITH CHARACTRON CHARACTERS 

CALL LEGNDG Z,0.,3071.,28,28H UtLSING VECTOR CHARACTERSSU 
C INITIALIZE VECTOR CHARACTER FONT :F0NT2: 

CALL VECIG Z.F0NT2 
C CHANGE TO USING VECTOR CHARACTERS 
CALL SETSMG Z,51,l. 

C CHANGE SIZE TO 2.7 TIMES NORMAL 
CALL SETSMG Z,45,2.7 
CALL TEXTG Z,13,13H$£LARGE F0NT2 
C RETURN SIZE TO NORMAL 

CALL SETSMG Z,45,l. 

C MAKE CHARACTERS 2 TIMES NORMAL WIDTH 
C GET CURRENT WIDTH 

CALL GETSMG Z,42.V 
V2 > 2.* V 

: SET WIDTH AND TYPE MESSAGE 

CALL SETSMG Z,42,V2 
CALL TEXTG Z,10,1 OHSETWO WIDE 
C RETURN WIDTH TO NORMAL 
CALL SETSMG Z,42,V 
S MAKE HEIGHT 3 TIMES NORMAL 
: GET CURRENT HEIGHT 

CALL GETSMG Z,43,V 
V3 > 3.* V 

: SET NEW HEIGHT AND TYPE MESSAGE 

CALL SETSMG Z,43,V3 
CALL TEXTG Z,12,12H*£THREE HIGH 
S RETURN HEIGHT TO NORMAL 
CALL SETSMG Z,43,V 

: ROTATE THE CHARACTERS 29 DEGREES COUNTER CLOCKWISE 
CALL SETSMG Z,46,29. 

CALL TEXTG Z,20,20H$EROTATED 29 DEGREES 
RESET ANGLE 

CALL SETSMG Z,46,0. 

SKEW CHARACTERS 30 DEGREES TO THE RIGHT CLOCKWISE 
CALL SETSMG Z,131,-30. 

CALL TEXTG Z,23,23H*ESKEW 30 DEGREES RIGHT 

: THRU 

CALL EXITG Z 
CALL EXIT 
END 
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